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困っ た と き の た め に 


0① 
ロ 


OpenOff 


フリ ー の オフ ィ ス ・ ソ フト [OpenOffce.org] に は 、「Basic]」 ベ ー ス の マク ロ 
(OpenOfce.org Basic) 環境 が 用 意 さ れ て お り 、 気 軽 に プロ グラ ミン グ を 楽し 
むこ と が で きま す 。 


Ne 


「Basic] と いう と “古い " 感じ も あり ます が 、 プ ログ ラミ 
め て 入ろう と する 人 に と っ て は 、 む し ろ 分 か りや すい 言語 と 
せん 。 

すっ か り 主 流 の 地位 を 占め て いる C 言 語系 の 構文 に 比べ て 、 プ ログ ラミ ング 
の 世界 特有 の 特別 な 記号 や 書き 方 が 少な い の で 、 最 初 の 一 歩 で 戸惑い に くい 
か ら で す 。 

[JavaScript を 少し や っ て みた けれ ど 、 な じ め な か っ た 」 と いう 人 も 、 一 度 、 
「OpenOffice.org Basic] を 試し て みて は いか が で し ょ うか 。 


グ の 世界 に は じ 
える か も し れ ま 
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「OpenOffice.org Basic] か ら は 、 表 計算 シー ト や 文字 列 処理 な ど 「Open 
Offce.org」 の 高度 な 機能 を 扱え る の で 、 実 用 的 な アプ リ 開 発 は も ちろ ん 、 気 軽 
に プロ グラ ミン グ を 楽し む 入 門 環境 と し て も 魅力 的 で す 。 


本 書 で は 、「Basic」 の 書き 方 や 、「Calc」 を 中 心 と する 「OpenOffice.org」 の 機 
能 を 、「Basic」 か ら 活用 する た め の 一 連 の 流れ を まとめ て み ま し た 。 

「OpenOfice.org] を さら に 活用 する た め に 、 ま た 、 ち ょ っ と し た マク ロ を 組 
みな が ら 「 自 分 で プロ グラ ム を 書い て 動か す ] 楽 し み を 味わう た め に 、 マ クロ に 
挑戦 し て みて くだ さい 。 
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本 書 で 解説 し て いる サン プル ・ プ ログ ラム は 、 工 学 社 の す サポー トペ ー ジ か ら 
ダウ ウジ ロード でき ます 。 


工学 社 ホ ー ム ペー ジ タ 
http://www.kohgakusha.co.jp/ 


サポ ー ト ペー ジ か ら 、「sample.zip] を ダウ ン ロ ー ド し て くだ さい 。 


サン プル ・ プ ログ ラム は Windows 版 の OpenOffice.org3.1 で 動作 を 確認 し 
て いま す 。 


Mac 版 や Linux 版 、 そ の 他 の バー ジョ ン で は 、 正 し く 動 作 し な い 可 能 性 が あ 
り ま す 。 あ ら か じ め ご 本 承 く だ さい 。 
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本 書 で 取り 扱っ て いな い OpenOffice マ クロ の プロ グラ ミン グ 全 般 に 関 
する 質問 の 回 答 は 、 編 集 部 で は 一 切 行なっ て お り ま せん 。 そ れ ら に 関し て は 、 
「OpenOffice.org 日 本 語 プ ロジ ェクト 」 の 公式 ペー ジ を 利用 し て くだ さい 。 
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また 、 本 書 サ ンプ ルプ ログ ラム に よっ て 生じ た いか な る 障害 に つい て も 、 
責任 を 負い か ね ます 。 使 用 に 際 し て は 、 必 ず 自 己 責任 で 行なっ て くだ さい 。 


代 Windows、Excel、Visual Basic は 米国 お よび その 他 の 国 に お ける 米国 Microsoft Corporation の 商標 ま 
た は 登録 商標 で す 。 


@ そ の 他 、 各 製品 名 は 一 般 に 各社 の 登録 商標 また は 商標 で す が 、⑤ お よび TM は 省略 し て いま す 。 


この 章 で は 、「 マ クロ と は どう いっ た も 

の な の か 」 や 「0O0o で の マク ロ の 実行 方 

、 法 」 な ど 、「 マ クロ ・ プ ログ ラミ ング 」 の 基 
本 を 解説 し ます 。 

実際 に 簡単 な マク ロ を 作っ て みて 、 感 

覚 を 掴ん で み ま し ょ う 。 


第 『 章 マク ロ の 量 本 
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「OpenO 地 ce.org](00o) に は 、「 マ クロ 」 と 呼ば れる プロ グラ ミン グ 機 能 が 
あり ます 。 


マク ロロ 機能 は 、「Microsoft Offce」 や 各種 グラ フィ ッ ク ・ ソ フト な ど 、 多 く 
の ソフ ト に 用 意 さ れ て いる の で 、 他 の ソフ ト で マク ロ を 使っ た 経験 を も っ て い 
る 人 も 多い か も し れ ま せん 。 

マク ロ を 使う と 、 面 倒 な 操作 を 一 気 に 実 行 し た り 、 独 自 の 機能 を 追加 で きる 
の で 、 ソ フト の 活用 範囲 を 広げ る こと が で きま す 。 


「O0o] で も マク ロ 機 能 を 使え ば 、 各 種 の 操作 を 自動 的 に 行なう 仕組 みや 、 独 
自 の 新しい 機能 を 追加 で きま す 。 

|Calc の セル に 自動 的 に 値 を 入力 する ] 「 指 定 の 条件 で 自動 的 に セル の 背景 
を 変え る || デー タ ・ フ ァイル か ら デ ー タ を 読み 込み 自動 的 に 処理 する | と いっ 
た 「 処 理 の 自動 化 マ クロ ] を 作っ た り 、 複 数 の 関数 と 演算 を 組み 合わ せ て 独自 
の マク ロ 関 数 を 定義 する こと で 、" 自 分 だ け の より 便利 な 「00o」” に 育て て 
いく こと と が で きる わけ で す 。 


さら に 、 マ クロ か ら は 「 ボ タン ]|「 メ ニュ ー]「 フ ォ ー ム | な ど 、 各 種 の [GUI コ ン 
ポー ネン ト ]」 を 扱う こと も で きる の で 、「00o」 の 機能 を 利用 し な が ら 本 格 的 な 
「 ア プリ ケー ショ ン ] を 開発 する こと も で きま す 。 


海員 ば 。 
デー タベース に アク セス し 、GUI コ ン ポ ー ネ ン ト を 駆使 し て 作っ た 入力 フォ 
ー ム で 情報 の 検索 や 編集 を 行なう 。 入 力 フ ォ ー ム 上 に 入力 され た デー タ は マ 
クロ で 検証 を 行ない 、 不 適切 な 部 分 が あれ ば 、 エ ラー を 表示 し た り 自 動 修正 
する 
と いっ た 「 デ ー タ 管理 アプ リケーション 」 は 、 通 常 の プロ グラ ミン グ 環 境 で 開発 
し よう と 思う と 、 か な り 手 数 が か か り ま す が 、「O0o」 の マク ロ を 使え ば 、 比 較 的 
簡単 に 開発 で きる 場合 が あり ます 。 


[1-2] 簡単 な マク ロ の 作成 


|00o」 に は 、 手 軽 に 利用 で きる 「 デ ー タ ベー ス ・ ア クセ ス 機 能 ] や 、GUI コ ン 
ポー ネン ト に デー タベース の 内 容 を 自動 的 に 反映 させ る 仕組 みな ど が あら か じ 
め 用 意 き れ て いて 、 そ れ ら の 機能 を マク ロ か ら 簡 単に 利用 で きる か ら で す 。 


これ ら の マク ロ は 、「O00o」 に 用 意 さ きれ て いる プロ グラ ム 開 発 環境 (IDE) で 、 
プロ グラ ム を 作る こと で 追加 で きま す 。 


1-8 簡単 な マク ロ の 作成 


で は 、 実 際 に 簡単 な マク ロ を 作っ て み ま し ょ う 。 


圏 マク ロ の 編集 画面 の 開き 方 


まず 、 マ クロ を 実行 する アプ リケーション と し て 適当 な 「O00o0 ア プリ ケー シ 
ョ ン 」(「Calc」 や 「Writer」) を 起動 し ます 。 

続い て 、「 ツ ー ル ] メ ニュ ー の 「 マ クロ | 一 「 マ クロ の 管理 ] に マウ ス ・ カ ー ソ ル 
を 移動 し て み ま し ょ う 。 す る と 、「OpenOffice.org BASIC」「Python」 
「 BeanShelll JavaScript] と いっ た 項目 が 出 て くる と 思い ます 。 


: 二 メデ ィ ア プレ イヤ ー() 


藤 購 管理 デー タベース (B) 


圭 し 込み 包 笛 ウィ ザー ド (<) 


「 マ クロ 」…「 マ クロ の 管理 」 を 選択 


第 1 二 マ クロ om マク ロ の 基本 


これ ら は 、「[O0o] の マク ロ で 利用 で きる プロ グラ ミン グ 言 語 で す 。 
本 書 で は 、 比 較 的 扱い や すい [OpenOfice.org BASIC] で マク ロ を 作る こと 
に し ます 5 


[OpenOffice.org BASIC」 を 選 訪 と 、 マ クロ の 管理 画面 に な り ま す 。 こ こ で 
編集 する マク ロ を 選ん で 編集 画面 に 入る わけ で す な が 、 今 回 は と りあ え ず 文書 フ 
ァイル に マク ロ を 作っ て み ま し ょ う 。 


OpenCHficEnrg Basic(!、 
Pythan(a). 
BeanShellGi. 


JavaScrinttD). 


OpenOf ord Basic マク ロ | 


マク タロ 名 (M) 
Main 
oi 


] 析 609 | 


] Modulel | | 
| 固 に OpenOffice.org の マク ロ まま | 
細 総 無題 1 | | 


RE 8 は 


「OpenOffice.org BASIC」 を 選択 し 、 マ クロ の 管理 画面 を 開く 


[1-2] 簡単 な マク ロ の 作成 


[無題 11 な ど 、 現 在 の 文書 の 名 前 が 付い た アイ コン を クリ ッ ク し 、 選 択 状態 
に し た ら 、[「 新 規 作 成 ] ボ タン を クリ ッ ク し て くだ さい 。 

する と 、「 新 し い モ ジュ ー ル | と いう モジ ュー ル 名 を 指定 する ダイ アロ グ が 出 
て きま す が 、 こ こ は そ の まま OK を クリ ッ ク し ます 。 


OpenOffice.org Basic マグ ロ 
マク ロ 名 (Mi 9 ] 
ロ の 記録 先 人 E) マク ロ の ある 場所 (1) Modulen 還 0iliai 
| 460DSS=UHHRESIEHDBRNSESSS に DRHNSEAOES 導 0 が 
マイ マク ロ 較 | 
隊 Standard ト | 
| 計 Modulet | ] 
四 = OpenOfhce.org の マク ロ | ] 
| | | | 
| | 
| | | | 明 二 | 
| 還 計 HHR 
| | | 
1 BERDRCHANS23LG 
| | | | ヘル プ (H) | 
1 po | EN 


新しい モジ ュー ル 市 


名 前 (N): | OK 
- キャ ッ ン セル | 


文書 ファ イル 名 の アイ コン (画像 で は 「 無 題 1」) を 選択 し た 状態 で 、「 新 規 作 成 」] を クリ 
ッ ク 。 そ の 後に 出 て くる 「 新 し い モ ジュ ー ル 」 は 、 そ の まま 「OK」 を クリ ッ ク す る 。 


これ で 、 実 際 に マク ロ を 記述 する 編集 画面 に な っ た と 思い ます 。 


生還 マク no 1 章 マク ロ の 基本 


注 集 画面 に は 


Bub Main 


nd Sub 
と いう テキ スト が あり ます 。 こ れ は 、「Main と いう 名 の サブ ルー チン ] を 定義 す 
る プロ グラ ム で す 。 

この 「Sub Main」 と 「End Sub」 の 間 に 行 な いた い 処理 を 書け ば 、 そ の 処理 を 
「Main] と いう 名 の 「 サ ブル ー チ ン 」 と し て 登録 で きま す 。 

「 サ ブル ー チ ン 」 と は 、「 ひ と まとまり の 処理 ] の こと で 、 マ クロ を 作る 場合 は 
必要 に 応じ て いく つか の 「 サ ブル ー チ ン ]| (や 後に 出 て くる 「 関 数 ]) と し て マク 
ロ を 作り 、 そ の サブ ルー チン を 呼び 出す 形 で マク ロ を 実行 し ます 。 


回 無題 1.5tandard - OpenOffice.org Basic 
ファ イル (F) 編集 (E) 表示 (V) ツー ル (T) ウィ ンド 
| 題 Standard 王 還 3 回 ゆ 


※ 補 求 六 末日 品 代 ) 水玉 来 玉 


REiM 
ub ka 困 
hd Sub 


「Sub Main」 と 「End Sub」 の 間 に 目 的 の 処理 を 書き 込ん で いく 


語 メッ セー ジ の 表示 


手始め に 何 か メ ッ セ ー ジ を 表示 する マク ロ を 作っ て み ま し ょ う 。 

メッ セー ジ を 表示 する に は 、「MsgBox( )」 と いう あら か じ め 用 意 さ れ て いる サ 
プ ブルー チン を 使い ます 。 こ の 「MsgBox] は 、 表 示し た い 文 字 列 を 指定 する と 、 そ 
の 文字 列 を ダイ アロ グ ・ ボ ックス で 表示 し ます 。 


で は 、「Main] サ プル ー チ ン を 以下 の よう に 書き 換え て くだ さい 。 


[1-2] 簡単 な マク ロ の 作成 


Sub Main 
MsgBox(!Eest『) 


End Sub 


サブルーチン を 呼び 出す と き は 、 サ プ ブルー チン の 名 前 に 「()」 を つけ 、 そ の 「()」 
の 中 に サブ ルー チン に 指定 する 「 引 数 ]( サ ブ プルー チン に 渡す パラ メー タ ) を 記述 
し まず 。 
(今回 の 場合 、「( )」 は な く て も いい の で す が 、 分 か りや すく する た め 、 つ ける こ 


中 し まず)。 
この 例 で は 、「Mainm] サ ブル ー チ ン の 中 で 、「MsgBox] と いう サブ ルー チン に 


[test] と いう 引数 を 渡し て 呼び 出し て いま す 。 


賠 無 呈 1.Standard - Openoffice.org Basic 
ファ イル (E) 編集 (E) 表示 (V) ツー ル ) ウィ ン 


に | 王 占 


| 題 1.Standard 。 


NEIM * キ 日 AGIC) 


書き 換え 例 


作っ た マク ロ を 実行 する に は 、 上 の ほう に ある 「BASIC プ ログ ラム の 実行 」 
ボタ ン を クリ ッ ク し ます 。 ク リッ ク す る と 、「test] と いう メッ セー ジ が 表示 さ 


れ ま す 。 


SQfHicE 


BASIC プロ グラ ム の 実行 | 


「BASIC プ ログ ラム の 実行 」 ボ タン を クリ ッ ク し て 、 マ クロ が 正しく 動く こと を 確認 する 


第 1 no 計 マク ロ の 基本 
| 1-3 | ユー ザー 則 か ら の 入力 内 肉 を 処理 する マク ロ 


マク ロ で メッ セー ジ 表 示 が で きる よう に な っ た の で 、 次 は ユー ザー か ら の 入 
力 を マク ロ で 処理 し て み ま し ょ う 。 


ユー ザー か ら の 入力 を 受け 取る に は 、「InputBox( )」 と いう 「 関 数 ] を 使い 
まる 

「 関 数 ] と は 、 何 か し ら の 結果 ( 値 ) を 返す サブ ルー チン の こと で す 。 

「InputBox( )」 の 場合 は 、 呼 び 出す と 入力 欄 を も つ ダ イア ログ ・ ボ ックス が 
表示 され 、 呼 び 出 し た 結果 と し て 入力 され た 文字 列 が 返っ て きま す 。 


まず 、[Main]」 サ プ ブルー チン を 以下 の よう に 書き 換え て 実行 し て みて くだ さい 。 


Sub Main 
MsgBox (InputBox ("文字 列 入 力 ") ) 
Erd Sub 


実行 する と 、 最 初 の 引数 で 指定 し た 「 文字 列 入力 ] と いう メッ セー ジ と 入力 
欄 の ある ダイ アロ グ ・ ボ ックス が 出 て きま し た 。 こ れ が 、「InputBox( )] で 作ら 
れ た ダイ アロ グ ・ ボ ックス で す 。 


文字 列 入 力 


| 


実行 結果 。 引 数 で 指定 し た メッ セー ジ と 入力 欄 が 現われ る 


[1-3] ユー ザー 側 か ら の 入力 内 容 を 処理 する マク ロ 


次 に 、 入 力 欄 に 適当 な 文字 列 を 入れ た ら 、[OK] を クリ ッ ク し て み ま し ょ う 。 
する と 、 こ ん ど は 先ほど 入力 し た 文字 列 が メッ セー ジ ・ ボ ックス に 表示 され 
まし た 。 こ れ は 、「InputBox( )」 が 返し た 入力 文字 列 が [MsgBox( )」 に 渡さ れ 、 


表示 され た か ら で す 。 


文字 列 入 


| 入力 慢 に 通 当 な 文字 列 を 入れ る と 


入力 梅 に 適当 な 文字 列 を 入れ る と - 


入力 欄 に 適当 な 文章 を 入力 し て 「OK]」 を クリ ッ ク す る と 、 
入力 し た 内 容 が 新しい ダイ アロ グ ・ ボ ックス に 表示 され る 


※ 
[InputBox( )」 は 、 も う 一 つ 引 数 を 追加 し て 、「 入 力 欄 に 最初 か ら 入 っ て いる 


文字 列 ] を 指定 する こと も で きま す 。 
サブ ルー チン に 引数 を 複数 指定 する 場合 は 、 間 を 「 カ ンマ ](,) で 区 切る こと 


に な っ て いる の で 、 た と えば 、 


Sub ゎ Main 
MsgBox (TnputBox ("文字 列 入 力 * , * 初 期 文 字 列 * ) ) 


End Sub | 
と 書き 換え て 実行 し て みる と 、 入 力 欄 に 最初 か ら 「 初 期 文 字 列 ] と いう 文字 列 


が 入っ て いる は ず で す 。 


生生 マク no | マク ロ の 基本 
| 1-4 |Writer や Calc の 正大 か ら マ クロ を 実行 する 


前 項 で は 、「 マ クロ の 編集 」 画 面 (IDE) か ら 「 実行 ] ボ タン を クリ ッ ク し て マク 
ロ を 実行 し まし た 。 

[実行 ] ボ タン を クリ ッ ク す る と 、 現 在 編 集 し て いる マク ロ ( モ ジュ ー ル ) の 「 最 
初 の サブ ルー チン (か 関数 )] が 実行 され ます 。 前 項 で は 、「Main] と いう 一 つの 
サブ ルー チン を 作っ て みた の で 、「Main」 が 実行 され た わけ で す 。 


回 アプ リケーション か ら マ クロ を 実行 


た だ 、 実 際 に マク ロ を 使う 場合 は 、 マ クロ を 編集 する た め の IDE か ら で は な 
く 、「Calcl」 の シー ト な ど 、 ア プリ ケー ショ ン の 画面 か ら 呼 び 出し た いで すね 。 ま 
た 、 複 数 の マク ロ の サブ ルー チン が ある 場合 は 、 呼 び 出 す サ ブル ー チ ン を 指定 す 
る 必要 も あり ます 。 


そう し た マク ロ の サ プ ル ー チ ン や 関数 名 を 指定 し て 実行 する の が 、| ツー ル ] 
メニ ュー の 「 マクロ] 内 に ある 「 マ クロ の 実行 ] メ ニュ ー で す 。 

まず 、「 ツ ー ル | 一 「 マ クロ | 一 「 マ クロ の 実行 ] メ ニュ ー を 選択 し 、 実 行 する マ 
クロ の 画面 を 呼び 出し て み ま し ょ う 。 


SHU ょ 
撤 張 村 能 マネ ー ジ ャ ーE). 


箇 マ 2mOE の 
YPH き 素行 (U7. 


2ML フィ ル 2 設定. マク HO 管理 0) 
オー トコ レ 5 ト オプ ショ (8。 | テッ 署名 B。 | 
2 マイ ズ (G9。 | nzoemo。 | 


オメ ヨコ 7 @!. 


「 マ クロ の 実行 」 を 選択 


[1-4] Writer や Calc の 画面 か ら マ クロ を 実行 する 


| マク ロ の 選択 ] ダ イア ログ が 出 て きた ら 、 マ クロ を 作っ た と き と 同 じ く [無題 


1 な ど 現 在 の ファ イル を 選び 、1-2 節 で 編集 し た 「Module1] を クリ ッ ク し ます 。 


する と 、 右 側 に モジ ュー ル に 含ま れる 「 サ ブル ー チ ン ]「 関 数 ] の 一 覧 が 表示 さ 
れる の で 、「Main」 を 選ん で 「 実 行 


| し て まし ょ う 。 


マク ロ の 運 択 


必要 な マク ロ を 含む お ライ ブラ リ を 居 択 し て 、「 マ クロ 名 」 で マク ロ を 遺 択 し ます 。 

ライ ブラ り (4) マク 名 (B) 

還 選 マイ マ 2 ロ ーー 人 ーー 

軸 還 OpenOffce.org の マク ロ | 上 了 部 

| El 

| MET2RR1Mi 
| AZ 
| 
| 
| 
| 
| 
| 
| 
| 
| 

| 

紀 ES NE2NDIMSYRRKTES 人 お 
「 マ クロ の 選択 」 ダ イア ログ 


ライ ブラ リ は 「Module 1]」、 マ ク 


「Mainl サブルーチン が 実行 され 、1-2 節 と 同じ く 「test] と いう メッ セー ジ が 


表示 され る は ず で す 。 


ロ 名 は 「Main] を 選択 し て 、「 実 行 ] を クリ ッ ク 。 


1-2 節 と 同じ 結果 が 返っ て くる 


- 利 球 <2nom マク ロ の 基本 


ー チ ン を 使い 分 ける 


次 に 、 も う 一 つ サ ブル ー チ ン を 追加 し 、 追 加 し た サブ ルー チン を メニ ュー か ら 
実行 し て み ま し ょ う 。 


「 ツ ー ル 」 一 [マク ロ 」 一 「 マ クロ の 管理 ] 一 「OpenOffce.org BASIC] か ら マ 
クロ の 管理 画面 を 表示 させ た ら 、1-2 節 で 作っ た 「Module1| を 選択 し 、| 編集 」 
ボタ ン を クリ ッ ク し て IDE 画 面 に 入っ て くだ さい 。 


| OpsnQWce_org Basic マク ロ 


| マクロ の 記録 先 (F) 
了 


用 居 マ イマ クロ ーー 


1-2 節 で 作っ た マク ロ を 編集 し 直す 


続い て 、「Main] サブ ルー チン の 下 に 、 以 下 の よ うな 「test] サ プル ー チ ン を 追 
加 し ます 。 


Sub test 
AIy セー ウツ 表示 
MsgBoxx ("tesE2" ) 

」 Emd Sub 


今回 は 、「MsgBox( )」 の 前 が 空い て いま す が 、 こ れ は 読み や すい よう に 「Tab 
文字 ] を 入れ て ある か ら で す 。 

「Tab 文 字 ] は 入力 し な く て も か まい ませ ん が 、 こ うし て 字 下 げ を する と 読み 
や すく な る の で 、 な る べく 適宜 [Tab 文 字 ] を 入れ て 、 読 みや すい マク ロ を 作る よ 
うに し まし ょ う 。 


[1-4] Writer や Calc の 画面 か ら マ クロ を 実行 する 


2 行 目 の 「| は 、 マ クロ に コメ ント (説明 ) を 入れ る も の で す 。「 中 以降 の 改行 ま 
で の 部 分 は 、 マ クロ 実行 時 に は 実行 され ませ ん 。 

コメ ント に マク ロ の 変数 や 処理 に 関す る 説明 を 書い て お く と 、 後 で 修正 する 
と き や 他 の 人 が マク ロ を 使う と き に 役に立つ で し ょ う 。 

また 、 行 の 先頭 に 「| を 付け る と 、 そ の 行 を 実行 し な いよ うに で きる (コメ ント 
アウ ト ) の で 、 テ スト や 修正 の 際 に 一 部 の 処理 を 無効 化す る た め に 使う こと も 
で きま す 。 


ENM 水玉 日 ARICY 北信 玉 ※ ボ 


ubtest 
MsgBax(「test2") 
nd Suhb 


Tab を 入れ る と 構造 が 分 か りや すく な る の で 、 
で きる だ け 入 れ て お く こ と を お 勧め する 。 
さて 、 こ れ で [test2] と いう メッ セー ジ を 表示 する 「test] サ ブル ー チ ン が で き 
た の で 、 一 度 IDE を 閉じ て アプ リケーション の 画面 に 戻り まし ょ う 。 
そし て 、 先 ほど と 同じ く 、 メ ニュ ー か ら 「 マ クロ の 選択 ] ダ イア ログ を 表示 さ 
せる と 、 先 ほど 追加 し た 「test] サ ブ プルー チン が あり ます 。 
選択 し て 実行 する と 、「test2] と いう 文字 列 が 表示 され まし た 。 


(クロ を 含む ライ ブラ リ を 選択 し て 、「 マ クロ 名 ] で マク ロ を 選択 し ます + 


1 ライ ブラ リ ( ぬ ) 


ライ ブラ リ は 「Module 1」、 マ クロ 名 は 「test」 を 選択 し 、 実 行 を 
クリ ッ ク す る と 、「test2」 と いう 文字 列 ダ イア ログ が 表示 され る 
ヒコ 
以上 で 、 マ クロ の サブ ルー チン を 作っ て メニ ュー か ら 呼 び 出し 実行 する 一 連 
の 流れ は 掴め た と 思い ます 。 


上 


間 
ll 


「 マ クロ ・ プ ログ ラミ ング 」 で は 、 加 算 
や 減算 な どの 簡単 な 演算 か ら 、 関 数 や 配 
列 を 使っ た 複雑 な 計算 まで 、 実 に さま ざ 
まな 処理 が 行なえ ます 。 

この 章 で は 、「 マ クロ ・ プ ログ ラミ ン 
グ 」 で 使え る 処理 に つい て 、 そ の テク ニッ 
ク を 学ん で いき ます 。 


第 2 章 マク ロ ・ プ ログ ラミ ング の 基礎 


本 格 的 な マク ロ を 作る た め に 欠か せな い の が 、[「 変 数 ] で す 。 
[変数 ] と は 、 デ ー タ を 記憶 し て お く 記 憶 領 域 の こと で 、 適 当 な 名 前 (変数 名 ) 
を つけ て 、 そ の 変数 名 で 変数 が 記憶 し て いる デー タ を 参照 し ます 。 


変数 は 、 マ クロ の 中 で 計算 結果 を 一 時 的 に 記憶 し て お いた り 、 一 定 回 数 の 処 
理 を 繰り 返す と き に 何 回 処理 を 繰り 返し た か を 数 える 「 カ ウン ター」 と し て 利 
用 し た り 、 ユ ー ザ ー の 操作 で 得 ら れる 情報 を 受け 取っ た り と 、 さ ま ざ ま な 場面 
で 利用 され ます 。 


変数 を 利用 する に は 、「Dim 文 」 で 変数 の 「 型 ] (格納 する 情報 の 種類 ) を 指定 
し 、 変 数 を 宣言 し ます 。 変 数 の 型 に は 多く の 種類 が あり ます が 、 と りあ え ず は よ 


く 使わ れる 、 
Integer …… 整数 (-32768 一 32767) 
Long の 整数 ( 土 約 21 億 ) 
Double …… 実数 (小数 点 以 下 を 含む 数 値 ) 
String … の の 文字 列 


と いっ た 型 に 慣れ て お きま し ょ う 。 


変数 の 宣言 は 、 
Dim 変数 名 As 変数 の 型 
と いう 形 で 行ない ます 。 


変数 を 宣言 し た ら 、「=」 で 値 を 代入 (設定 ) し ます 。 た と えば 、 
| Dim str AS SEring 

と し て 文字 列 型 変数 [str」 を 宣言 し た ら 、 

str=* 文 字 列 * 

の よう に し て 変数 [str」 に 格納 する 文字 列 を 設定 する わけ で す 。 


[2-2] 変数 を 使っ た 計算 


数 値 型 の 変数 も 同様 に 、 
pim 1 Ag Tnteger 
=123 
な ど と し て 、 変 数 の 宣言 や 代入 を 行ない ます 。 
さら に 、 変 数 に は 、 


str=TnputBox ("文字 列 を 入力 『) 
の よう に 、 関 数 が 返す 値 を 代入 する こと も で きま す 。 


- ち | 。。 を っ た 計時 


変数 の 宣言 や 代入 を 試し て みた の で 、 こ ん ど は 変数 を 使っ て 計算 を し て み ま 
信 時 欠 。 


還 演算 子 


[0O0o]」 の マク ロ で も 、 通 常 の 加減 乗除 と いっ た 演算 が で きま す 。 

演算 は 、「 演 算 子 」 と 呼ば れる 記号 を 使い 、 演 算 子 ご と に 「 乗 除算 は 加減 算 よ 
り 優先 ] と いっ た 優先 順位 が ある の も 、 通 常 の 数 式 と 同じ で す 。 ま た 、「( )」 で 優 
先 順 位 を 指定 する こと も で きま す 。 


@ 主 な 演算 子 
CCPPCPYYEYT 加算 
に 潤 還 FFPCPCPPPPCLLL 乗算 
7 全 CCCCCCEECTE 除算 
人 。。<<<e 累乗 
mod の 除算 の 余 り 


第 2 章 マク ロ ・ プ ログ ラミ ング の 基礎 


@ 数 式 の 例 


Dim result As Long 


resut=1+2413 …… result の 値 は 6 


resut=1+273 …… result の 値 は 7 


resut =(1+2)*3…… result の 値 は 9 


resut =2A4 の reo result の 値 は 16 


result = 17 mod 4 …… result の 値 は 1 


result = result*2 …… result の 値 が 2 倍 に な る 


「MsgBox( )」 を 使う と 、 数 値 を 文字 列 と し て 表示 で きる の で 、 適 当 な 変数 を 
宣言 し 、 数 式 の 結果 を 代入 し て か ら 表 示し て み ま し ょ う 。 


マク ロ の 管理 画面 か ら 「OpenOffce.org Basic」 の 編集 画面 を 呼び 出し 、 以 下 
の マク ロ を 入力 、 実 行 し て みて くだ さい 。 


Sub Main 
Dim resu1]t As Long 
reBull = (| F 2 1 っ ) ( 4) *: 5 


_ MagBox (esu1t ) 


[2-2] 変数 を 使っ た 計算 


SQiTfiCe 


HBH 


実行 結果 


計算 結果 を 確認 し た ら 、 式 の 部 分 を いろ いろ 書き 換え て 、 思 っ た と お り の 結 
果 に な る か 確か め て みて くだ さい 。 

演算 子 の [優先 順位 ] に つい て は 、 式 が 複雑 に な る と 分 か り に くく な る の で 、 
「()」 で 先 に 行なう 演算 を 強調 し 、 分 か りや すい 式 を 書く よう に し まし ょ う 。 


な お 、 数 値 の 計算 を 行なう 際 、 特 に 累乗 の 計算 が 入る 場合 は 、 計 算 結 果 が 変 
数 に 格納 で きる 数 値 の 範囲 を 超え な いか 、 注 意 が 必要 で す 。「Long 型 ] 変 数 に 
は 「 土 21 億 ] 程 度 の 数 字 が 格納 で きま す が 、 こ の 男 囲 を 超え る 可能 性 が ある 計 
算 を 行なう 場合 は 、「Double 型 ] の 使用 も 検討 し て みて くだ さい 。 


圏 16 進 数 で の 表記 


また 、「OpenOffce.org BASIC マ クロ | で は 、 数 値 を 16 進 数 で 表記 する こと 
も で きま す 。 数 値 を 16 進 表記 に する に は 、 先 頭 に 「&H」 を 付け て 、 
egHFF 
な どじ て くだ ざい 。 だ ちえ ば 、 


Sub Main 


Dim resu1]t As Lond 


reSu]t = &HFE * &HE 


Ox (reSu1 


第 2 章 マク ロ ・ プ ログ ラミ ング の 黄 礎 


と する と 、「255*15=3825] と 表示 され ます 。 


RENM *** 日 ASICD 


に ub Main 
Him result 品 s Lnng 


Fesut 三 HFF * SHF 


sgBnxtrgsult) 


End Sub 


16 進 数 で の 表記 も 可能 


色 の 設定 な ど で は 、16 進 表記 の ほう が 分 か りや すい の で 、16 進 表記 に も 慣れ 
て お く よ う に し まし ょ う 。 


|a-3| 数 値 と 文字 列 を 組み 合わ せ た 演算 


前 項 で は 、 演 算 子 を 使っ て 「 数 値 の 計算 ] を し て み ま し た 。 
2 つの 数 値 に 「+] 演 算 子 を 使う と 「 足 し 算 ] が で きま し た が 、 実 は 、「+」 演 算 子 
は 、「 文 字 列 」 に 対し て も 使う こと が で きま す 。 


字 列 文字 列 


た と えば 、 以 下 の マ クロ を 実行 し て みて くだ さい 。 


gBox('abc! + "def") 


[2-3] 数 値 と 文字 列 を 組み 合わ せ た 演算 


実行 する と 、[「"abc」 に [「"def] が 足 さ れ て [abcdefl] と いう 文字 列 が 表示 さ 
れ ま し た 。 


snfice 


abcdef 


古文 字 列 寺 数値 


次 に 、 以 下 の マ クロ は どう で し ょ う 。 
Sub Main 

Dim num As Tong 

num = 123 

MsgBox ("abc" + num) 
End Sub 


実行 する と 、「abc123] と いう メッ セー ジ が 表示 され まし た 。 


実行 結果 
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今回 は 、「 文字 列 + 数 値 型 変数 ]、 つ まり 「 文 字 列 + 数 値 ] と いう 加算 で し た 
が 、 こ の 場合 は 「 数 値 ] が [文字 列 ] と し て 連結 され る わけ で す 。 


た だ し 、 逆 に 「 数 値 十文字 列 ] と いう 演算 は 、 何 の 効果 も あり ませ ん 。 
この 場合 、 文 字 列 の 部 分 が 数 値 と し て は 「0」 と 評価 され る の で 、 数 値 が 変わ 
ら な い の で す 。 


試し に 、 
Sub Main 


Dim num As Long 
04S140 半 0 人 endo ro 
MSqgBox (mum ) 


Bi Sub 
と いう マク ロ を 実行 する と 、[「123] と いう メッ セー ジ が 表示 され ます 。 


」 M 問 の | 束 束 字 索 束 BASRHOD 事 束 束 字 率 


Eub Main ae 
| soffice 


him nurmi 占 s Lorg 
num ニ 12 ヨ + "abe 


usgBaxtnum 


Pd Sub 


「 数 値 + 文 字 列 ] と いう 順 で 演算 を 行なっ て も 、「 数 値 ] の み の 結 果 と な る 


な お 、 こ の マク ロ の 場合 は 変数 [num」 を 文字 列 型 と し て 、 


[2-3] 数 値 と 文字 列 を 組み 合わ せ た 演算 


NM ht し Noe 


MsgBox (num) 


豆 nd Sub 
と し て も 、 同 じ 結 果 に な り ま す 。 そ れ は 、 


TIMTU E123 3DGT 


と いう 式 が 、 ま ず 「123 + "abc! | と いう 数 値 を 計算 する 式 と し て 演算 が 行なわ 
れ 、 そ の 結果 の 数 値 が 文字 列 に 変換 され る か ら で す 。 


ee 


EMI ABIO 


求 束 素 池本 


sub も 竹 jn 


Dim nur 吉 s Strirg 
nufm ニ 12 コロ オ ahe 


kssBagztnum) 


文字 列 と し て 表記 し て も 、 結 果 は 同じ 


玉 型 の 自動 変換 


以上 の こと を まとめ る と 、 

「 文 字 列 」 に 「 数 値 ] を 「 + 」 す る と 、「 数値] が 「 文 字 列 ] と し て 加え られ る 。 

「 数 値 」 に 「 文字 列 ] を 加え て も 、 式 の 値 は [数値] その まま で 、 変 わら な い 。 
と いう こと に な る の で す が 、 や や こし いこ と に 、 数 値 に 「 数 値 と し て 意味 を も る つ 
文字 列 ] を 加え る と 、 そ の 結果 は | 数 値 十 文字 列 が 表わす 数 値 ] に な っ て し まう 
の で きま 。 
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た と えば 、 


_gub Nain ー 
。 pim num As rong 
MOONTI TSN 
MsgBox (mum ) 
EEnd Sub 
と いう マク ロ を 実行 する と 、「124] と いう メッ セー ジ が 表示 され ます 。 


これ は 、「"1!] と いう 文字 列 が 、 自 動 的 に 「1] と いう 数 値 と し て 扱わ れる た め 
SG 9355 


Eh キキ ま ※ 日 SID を 


ub Maln 


Dim rem ss Lorg 


hulm 123+ オ "1 
MsgBax(rum) 
hd Sub 


結果 は 「123+1」 と 同じ に な る 


こう し た や や こし い 現 象 が 起こ る 原因 は 、「 型 の 自動 変換 ] と いう 働き の た め 
で す 。「OpenOffice.org Basic] で は 、 今 回 の よう に 文字 列 や 数 値 な ど が 文脈 に 
よっ て 、 自 動 的 に 別 の 型 と し て 扱わ れる こと が ある の で す 。 

具体 的 に 、 ど うい っ た と き に どん な 型 変換 が 起こ る か は 、 少 し ずつ 慣れ て く 
れ ば 感覚 的 に 分 か っ て くる の で す が 、「 変 数 の 型 ] に 注意 し な いと 思わ ぬ 結 果 に 
な る こと も ある か も し れ ま せん 。 


[2-3] 数 値 と 文字 列 を 組み 合わ せ た 演 算 


最後 に 、 文 字 列 の 連結 に つい て も う 一 点 。 
実は 、 文 字 列 の 連結 は 「&」 で も 行なう こと が で き て 、 こ の 「&] を 使っ た 場合 、 
「 数 値 き 文字 列 」 の 結果 が 、「 数 値 + 文字 列 ] の 結果 と 違っ た り し ます 。 
Sub Main 
Dim num As Long 
4BD11 計 265 人 


MSgBox (num ) 


End Sub 
と いう マク ロ を 実行 する と 、 こ ん ど は 「1231] に な り ま す 。 


YEIM 水素 来 昌広 玉 玉 


ub sin 


Dim nuim As Long 


num ニ 1838 す 
jsgBax(num) 
nd Sub 


結果 は 「"123"+"1"」 と 同じ に な る 


[123 + 1] で は 、「"1 中 が 数 値 と し て 扱わ れ ま し た が 、 こ ん ど は 「123」 と いう 数 値 
の ほう が | 文字 列 ] と し て 扱わ れ 、 連 結 結果 の 文字 列 「1231」 が 、 変 数 [num」 に 
代入 され た よう で す 。 


「+」 の 場合 は 、( 文 字 列 で あっ て も ) な る べく 数 値 と し て 解釈 し よう と し 、「&]」 


の 場合 は 、( 数 値 で あっ て も ) な る べく 文字 列 と し て 解釈 し よう と する 、 と 言え 
る か も し れ ま せん 。 


「& を 」 の ほう が 、「 文 字 列 の 連結 ] と いう 面 で は 本 来 の 意味 に 近い で し ょ うか 
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ネ 
この 文字 列 と 数 値 の 間 の 変換 は 、 思 わ ぬ 結果 を 生む こと も ある の で 、「 数 値 
と し て 入力 され た ]「 読み 込ん だ 文字 列 ] の 扱い に は 、 注 意 し まし ょ う 。 


E 四 


基本 的 な 演算 が で きる よう に な っ た の で 、 次 に 、 独 自 の [関数 ] を 作っ て み ま 
じ よ り 。 

1 章 で 説明 し まし た が 、[「 関 数 ] と は 、「 値 を 返す サブルーチン 」 の こと で す 。 

[0O0o」 の マク ロ に は 、 あ ら か じ め 多 く の 「 サブルーチン ] や 「 関 数 ] が 用 意 さ 
れ 、 マ クロ か ら 呼 び 出す こと が で きま す が 、 こ の サブ ルー チン や 関数 は 自分 で 定 
義 す る こと も で きま す 。 


「 複 雑 な 演算 処理 ] や 「 入 出力 の 検査 ] な ど 、 何 度 も 使い まわ す 処 理 を サブ プル 
ー チ ン や 関数 に まとめ て お け ば 、 マ クロ を すっ きり と 書く こと が で きる で し ょ 


う 。 ま た 、 一 度 作 っ た サブ ルー チン キ 関 数 を 、 他 の マク ロ で 使い まわ す な ど 、 プ 
ログ ラミ ング の “資産 " と し て 活用 し や すく な り ま す 。 


圏 関数 の 定義 
関数 を 定義 むす る に は 、 以 下 の よ うに し ます 。 
runction 関数 名 (引数 ) as 関数 の 型 
処理 内 容 
関数 名 = 関数 の 結果 


End Funo も ion 


[2-4] 関数 


引数 の 指定 は 、 
変数 名 as 変数 の 弄 
と いう 形 で 行ない ます 。 


た と えば 、「 引 数 と し て 渡さ れ た Long 型 変数 の 値 に 1 を 加え た 値 を 返す 関数 
inc( )」 を 定義 むす る な ら 、 


Function inc(va1 As Long) As Long 
Dim resu] As Long 
GSutE = Va + 1 
inc = resulE 
End Funo も ion 
と いっ た 感じ で 書く わけ で す 。 
(単に 「1」 を 加え る 関数 を 作る な ら 、|inc = val +1] と する の が 普通 で す が …)。 
こう し て 定義 し た 関数 は 、 あ ら か じ め 用 意 さ れ て いる 関数 と 同じ く 、 


関数 名 (引数 ) 
と し て 呼び 出す と 、 結 果 が 返っ て きま す 。 


量 値 渡し 


た だ し 、 こ うし て 渡さ れ た 変数 を 、 関 数 の 中 で 書き 換え る と 、 呼 び 出 し た 側 
に も 影響 が 及ぶ (関数 に 渡し た 変数 の 値 が 変わ っ て し まう ) の で 、 注 意 し て く 
だ さい 。 


た と えば 、 以 下 の マ クロ を 実行 し て みて くだ さい 。 
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sub Main 
| Dim 1 rond 
1 = 1 
MSGHRGOGSMUNUEUMIG 
test (1 ) 
USGHBODG UE 
End Sub 
FunCtton EesE(arg As Lond) A8 Long 
PIGEEieciil 
teSt = 1 
Erid Funmo 上 on 


この マク ロ で は 、 ま ず [「Main()」 で 変数 [ii] を 用 意 し 、i」 に 「1」 を 代入 し ます 。 

そし て 、 そ の 変数 を 「test( )」 関 数 に 渡し て いる の で す が 、「test( )」 を 呼び 出 
す 前 後 で [il の 値 を 表示 し て みる と 、「Main( )」 内 で 変数 [i] に は 一 切手 を 加え 
て いな い の に 、 遇 の 値 が 「2] に 変わ っ て いま す 。 


これ は 、「test()」 内 で 渡さ れ た 変数 [arg] に 、「2] を 代入 し た 結果 で す 。 


関数 や サブ ルー チン を 呼び 出す 際 に 引数 と し て 変数 を 渡す と 、 そ の 変数 自身 
(変数 の 参照 ) が 関数 や サブ ルー チン に 渡さ れ ま す 。 
Bub Main 

Dim 1 Ag Long 

test (1 ) 


End Function 


[2-4] 関数 


う 


unmC も ion tesE(arg As mong) As rong 
nd Funotion 
と いう 形 で 、「Main( )] か ら 「test( )」 に 変数 il を 渡す と 、「Main( )」 内 の 変数 


日 ] と 「test( )] で 引数 と し て 受け 取る 変数 [arg] が “同じ も の ” と し て 扱わ れ 
る わけ で す 。 こ の た め 、「test( )」 内 部 で [arg」 の 値 を 変更 する と 、 そ の 影響 は 


「Main()」 の 変数 |i] に も 及び ます 。 


関数 の 中 で 、 渡 され た 変数 の 値 を 変更 する と 、 
関数 に 渡さ れ た 変数 の 値 も 変わ っ て し まう 


こう し た こと を 避け る た め に 、「OpenOffice.org BASIC」 に は 、 呼 び 出 し 側 の 
指定 し た 値 を コピ ー し て 、 関 数 内 で 使わ せる よう に する 「 値 渡し 」 と いう 仕組 み 
が 用 意 さ きれ て いま す 。 こ れ は 、 引 数 の 宣言 時 に 「ByVal」 を 付け る こと で 、 変 数 自 
身 で は な く 、 そ の 値 「1] を コピ ー し て 、 引 数 と する も の で す 。 


玉 
た と えば 、「test( )」 を 以下 の よう に 書き 換え て み ま し ょ う 。 


Funot1on EeSE (ByVa1 arg As Tong) AS Long 
arg = 2 
il に Ne cl 
End Funotion 
実行 する と 、「test( )」 呼 び 出し の 前 後 で 、 値 が 変わ らち な く な っ て いる こと が 
確認 で きる は ず で す 。 
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に EIM| キキ ネネ 日 AOIKO ネ キ 本 
ub ain 


Dim i as Long 


MsgBox "に &i 

tmst(i 

MseBox “に” &i 
nd Sub 


Function tsst(ByVal arg As Long) As Long 
を ニ グ 
| test=1 


Ed Functign 


値 渡 し だ と 、 変 数 の 値 は 変わ ら な い 


| 踊 5] 楽 伯 分 臣 | 


マク ロ を 書い て いる と 、「 条 件 に よる 分 岐 ] を 行ない た く な る こと が あり ます 。 

た と えば 、「 あ る 変数 の 値 が 5 未満 な ら こ の 処理 、 そ を う で な けれ ば この 処理 ] と 
変数 の 値 に よっ て 処理 を 振り 分 けた り 、「 式 の 値 が ある 変数 より 大 きけ れ は ば 、 特 
定 の サブ ルー チン を 呼び 出す ] と いっ た 状況 で す 。 


古文 


「OpenOffce.org Basic] に は 、 こ うし た 条件 分 岐 の た め に 「H 文 ]」 と いう 制御 
構文 が 用 意 さ れ て いま す 。 
この 「 文 ] は 、 


| ( 朱 件 rhen 
_ 条件 を 満た し た と き の 処 理 


End エチ 


[2-5] 秒 件 分 岐 


と いう 構文 で 、 指 定 し た 条件 を 満た す と 、「Then」 か ら 「End Hf の 間 の 処理 を 実 
行 し ます 。 


また 、「Else」 を 指定 する と 、「 条 件 を 満た さ な い 場合 ] に も 特定 の 処理 を 行 な 
え ます 。 


rE (条件 ) mhen 

条件 を 満た し た と き の 処 理 
豆 18e 

条件 を 満た さなか っ た と き の 処 理 
End TE 


「 文 ] で 指定 する 条件 は 、「Bool 型 の 値 を も つ 式 ] で す 。 

[Bool 型 ] と は 、「True」( 真 ) か 「False」( 偽 ) か 、 と いう 2 種類 の 値 の いずれ か と 
な る 型 で 、「True」 なら 条 件 を 満た し た も の と し て 、「False」 な ら 満 た さなか っ 
た も の と し て 扱わ れ ま す 。 


画 比較 演算 子 


「Tf 文 ] に 条件 と し て 渡す 式 に は 、 等 号 や 不 等 号 な どの 「 比較 演算 子 」 に よる 
「 比 較 式 ] や 、「Bool 型 ] の 値 を 返す 関数 を 利用 し ます 。 
比較 演算 子 に は 、 


EGG 等 し い 

に PCEPCPCTP 等 し く な い 

に 間 CCPCCPCCEPCEPP 左側 が 小さ い 

に RS32332GRoody 右側 が 小さ い 

CCCCPTTPPPPPP 左側 が 右側 より 小さ いま た は 等 し い 
に PPPPPCPCPC 左側 が 右側 より 大 きい また は 等 し い 


と いっ た も の が あり 、 た と えば 、 
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_gub Main 
。 pim a As rong 
| みみ デー 3 


IN お NaISIBUIODhAE 
MsqgBox("a < 5『) 
End TE 


5nd Sub 6 

と いう マク ロ を 実行 する と 、「a」 に は 「3」 が 代入 され 、「a < 5] (変数 a は 5 より 小 
さい ) と いう 比較 は 真 に た る の で 、「 せ 文 ] の 中 の 処理 が 実行 され 、「a < 5] と いう 文 
字 列 が 「MsgBox()」 で 表示 され ます 。 


[al が 「5 以 上 」 の 場合 は 、 実 行 し て も 何 も 起こ ら な い 
ネ 
最後 に 、 先 の マク ロ を 以下 の よう に 書き 換え て 実行 し て み ま し ょ う 。 


Sub Main 


D1m a As Tong 


_ TE (1) mhen 


_ MsgBox("a < 5") 


[2-5] 条件 分 岐 


2 


_mnd sub 


[ 文 ] に 指定 する 条件 が [ 数値] に な っ て いま す が 、 実 行 し て みる と 先ほど と 
同じ く メ ッ セ ー ジ が 表示 され まし た 。 つ まり 、「 せ 文 ] の 条件 を 満た し た 、 と し て 
扱わ れ た わけ で す 。 

次 に 、「Tf 文 ] の 「( )」 の 中 を 、「1] か ら 「0」 に 書き 換え て みる と 、 こ ん ど は 何 も 
表示 され ませ ん 。 つ まり 、「 偽 」 と 判定 され た わけ で す 。 


実は 、「T 文 ] な どの 条件 式 に 数 値 を 渡す と 、「0 な ら 偽 、 そ れ 以 外 は 真 ] と し て 
扱わ れ ま す 。 こ の 性 質 を 使う と 、 あ る 数 値 型 変数 [vall の 値 が [0] で な けれ ば あ 
る 処理 を 行なう 、 と いう [Hf 文 ] を 、 

ff (Val ) Then 

Eunc( ) が 0 以外 の 値 を 返し た と き の 処 理 
End エ TE 
な ど と 書く こと も で きま す 。 


た だ し 、 こ うし た 書き 方 は [分 か り に くい 」 の で 、 あ まり 使わ な いよ うに し まし 
所 あ is 
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|| ニル ー プ 季 理 O = 


「Tf 文 ] で 条件 分 岐 が で きる よう に な っ た の で 、 次 は 「 条 件 を 満た すま で 処理 
を 繰り 返す 」( ル ー プ 処理 ) よ うな マク ロ を 試し て み ま し ょ う 。 


ルー プ 和 構造 を 使え を る よう に な る と 、「 条件 が 満た され て いる 間 、 ル ー プ 処理 を 
繰り 返す ] こ と が で きる よう に な り ま す 。 


面 [Do 一 Loop」 構 文 
「OpenOffce.org Basic] に は 、 継 続 (終了 ) 条 件 を 指定 する ルー プ の た め の 
構文 と し て 、「Do>Loop」 と いう 構文 が あり ます 。 


これ は 、 
po 


ルー プ 処 理 
roop Whi1e 継続 条件 
と いっ た 形 で 「 継 続 条件 を 満た す 間 、 ル ー プ 処理 を 実行 ] し た り 、 
Do 


ルー プ 処 理 


roop Unti1 終了 条件 
の よう に 、「 終 了 条件 が 満た され る まで 、 ル ー プ 処理 を 実行 ] し た りす る 構文 で す 。 


た と えば 、 以 下 の マ クロ を 実行 し て みて くだ さい 。 
_Bub Main 


ーー Dim jnDuL ら Str As 8 モエ ing 
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0 = TnpuEBox ( " Tnput : " ) 
_Toop Unti1 inputSt エ = "end" 
MsgBox ("ルー プ 終 了 ") 
End Su ち b 


入力 ダイ アロ グ に 「abc」 な ど と 入れ る と 、 終 了 条 件 を 満た まさ な いた め に ルー 
プ 先 頭 に 戻り 、 ま た 入力 ダイ アロ グ が 出 て きま す 。 


何 度 か 適当 な 文字 列 を 入れ た ら 「end] と 入れ て み ま し ょ う 。 こ ん ど は 、 ル ー 
プ 終 了 条 件 の [inputStr = "end| が 満た され て ルー プ が 終了 し 、「 ル ー プ 終了 」 
と いう メッ セー ジ が 出 て きま す 。 


Input: La 0 間 
ee 
| キャ ヤン セル M 
四半 
| abc 
3 は 32 HH 吉 
EN ll {ttlt44 ふ 《j$ ふ =〈j4jltwntmmjmjmnm 
Tnpuk | 
| キャ ン セ ヒル | 
1 NSP 
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終了 条件 を 満た せ ば (「end」 と 入力 すれ ば )、 ル ー プ が 終了 する 


TWhile 一 Wend] 構 文 


上 の 例 で は 、 ま ず ル ー プ 内 の 処理 を 実行 し て か ら 終 了 判 定 を 行なっ て いた た 
め 、 ル ー プ 内 の 処理 が 最低 一 回 は 実行 され ます 。 

し か し 、「While て Wend」 と いう 構文 を 使う と 、 ル ー プ を 実行 する 前 に 終了 
判定 を 行なう よう に し て 、 条 件 を 満た し て いな けれ ば 処理 を 一 度 も 実行 し な い 
よう に する と と も で きま す 。 


この 場合 は 、 
whine 継続 条件 
ルー プ 処 理 
Wend 
と いっ た 形 で 記述 し 、 継 続 条件 を 満た し て いな けれ ば 、 ル ー プ 処理 は 一 度 も 実 
行 さ れ ま せん 。 


ネ 
実際 に ルー プ 処 理 を 行なう 場合 に どう いっ た 構文 を 使う か は 、| 条件 の 判定 
を いつ 行なう か (処理 の 前 か 後 か )」「 条 件 判定 に 使う 変数 の 値 が ルー プ を 抜け 
た と き に どう な る か 」 と いっ た 点 を 考慮 し な が ら 、 検 討 し て みて くだ さい 。 
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今 ま で 見 て きた マク ロ の 基本 を 確認 する 意味 で 、 ち ょ っ と し た ゲー ム を 作っ 
で みしま ょ う 。 


今回 作る の は 、 あ ら か じ め 決 め て お いた 適当 な 数 を 、 ヒ ント を 元 に 当て る 「 数 
当 で ゲー ム で す 。 

マク ロ で は 、 最 初 に 適当 な 数 を 決め て お き 、「 入 力 ダ イア ログ ] で 数 を 入力 し 
ます 。 そ し て 、 入 力 さ れ た 数 が 決め て お いた 数 より 大 きい か 小さ いか 、 と いう メ 
ッ セ ー ジ を 表示 し て 、 そ の メッ セー ジ を 元 に 数 を 推測 し て いく 、 と いう 流れ に し 
て み ま す 。 


① 正解 の 数 を 決め る 。 

②「 入 力 ダイ アロ グ 」 で 数 を 入力 。 

③ 正解 な ら ④ へ 、 そ う で な けれ ば ヒン ト を 表示 し ② へ 。 
④ 正解 メッ セー ジ を 表示 。 


古 正解 の 数 を 設定 する 


まず 、 正 解 の 数 と し て [適当 な 数 ] を 決め る わけ で す が 、 こ れ に は [Rnd( )」 と 
いう (擬似 ) 乱 数 を 返す 関数 を 使い ます 。 

この 関数 は 、[0」 以 上 「1] 未満 の ラン ダム な 数 値 (実際 に は 、 計 算 で 求め た ラ 
ンダ ム に 見 える 数 値 ) を 返す も の で す 。 


以下 の マク ロ を 実行 する と 、 実 行 の た びに 異な る 値 が 表示 され ます 。 
Sub Main 


1rsgBox (Rnd ( ) ) 
mad Sub 
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0.774458214972381 


実行 結果 


た だ 、 こ の まま だ と 適当 な [整数] と し て は 使え な い の で 、 欲 し い 数 の 上 限 を 
掛け 、 小 数 点 以 下 を 切り 捨て る 関数 「Int( )」 で 整数 に し ます 。 


た と えば 、「1 一 100」 の 間 の 適当 な 数 が 欲し いな ら 、 
BWSe 半 49 な lidBEN 98 月 ip 


と する わけ で す 。 


先ほど の マク ロ を 以下 の よう に 書き 換え て 何 度 か 実行 する と 、 こ ん ど は ( 毎 
回 異な る )「1 一 100] の 間 の 整数 が 表示 され ます 。 


Sub Main 
MsgBoXx (Tnt(Rnd() * 100) + ユ ) 
豆 nd Sub 


snffice 


o+ 


実行 結果 


今回 は 、 正 解 の 数 を [Rnd( )] を 使っ て 作り ます が 、 こ の 値 は 後 で 何 度 も 使う 
(入力 され た 値 と 比較 する ) こと に な る の で 、 変 数 [num | に 入れ て お きま し ょ う 。 
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正解 の 数 を 用 意 で きた ら 、 数 の 入力 と 判定 、 判 定 結果 の 表示 を 行なう ルー プ 
に 入り ます 。 今 回 は 、「 入 力 し た 後 、 正 解 な ら ル ー プ を 抜け る ] 形 で 、 


Do 
数 を 入力 
入力 され た 数 に 応じ て メッ セー ジ 表 示 


roop Uint1 (人 入力 され た 数 = 正解 ) 
選 や ② う 光一 プ に し まし ょ よう 。 


数 の 入力 は 、「InputBox( )」 で 行ない 、 結 果 は 変数 [inputNum」 に 格納 し て 
お きま す 。 そ し て 、 そ の 後 、 
エ E (num > 31npuENum) も hen 
MsgBox (inputNum & 『s 正 解 よ り 小さ いで すめ ) 
HBnd エ TE 


エ FE (num < 1npuENum) も Ehen 


MsgBox (inputNum & 『s 正 角 よ り 大 きい で す ) 
End TE 


エ F (num = 1nputNum) も hen 
MsgBox (inputNum &g 『s 正 角 で すめ ) 
End エモ 
と し て 、 正 解 の 数 と 比較 し メッ セー ジ を 表示 し ます 。 


Ed 


以上 の 処理 を まとめ 、 正 解 ま で の 入力 回 数 を 数 える 処理 も 加え る と 、 以 下 の 
よう に な り ま す 。 
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Sub Main 


Dim num As Long 
D1m inputNum As Long 


Dim coun 上 As Long 


: 正解 の 数 を 決め る 
MUSERRAGHIGOU EDOJ 


・ 正解 が 入力 され る まで ルー プ 
Do 


nputNum = TnputBox(『 数 を 入れ て くだ さい :") 
エ E (num > inputNum) も hen 


MsgBox (lnputNum & 『s 正 解 よ り 小 さい で すめ ) 
End エモ 


エギ (num < 1npuENum) も hen 
MsgBox (inputNum & 『s 正 解 より 大 きい で す ) 
End TE 


エ F (num = mpuENum) Ehen 


MsgBox (inputNum & 『: 正 解 で す 『) 
End エモ 


・ 入力 回 数 カウ ンタ を 更新 


CGU も ニ . COun も E + 1 


Tioop Un も ti1 1npuENum = num 


・ 正解 まで の 入力 回 数 を 表示 
MsqgBox (count & 『 回 で 正解 ") 


nd Sub 
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実行 する と 、 数 を 入力 する ダイ アロ グ が 出 て くる の で 、 適 当 な 数 を 入れ て 、 乱 
数 で 決め た 数 を 当て て みて くだ さい 。 


孝 を 入れ て くだ さい : 

Io 
| INN い PMS 

誠 導 | 
| 数 を 入れ て くだ さい : 開 間 ok 前 
ーーーーーーーー ニ ーー ュー 

| | キャ >t ル | 
MMEOSUESS 


73: 正 解 で す 


「 数 当て ゲー ム 」 の 完成 
正解 の 入力 回 数 を 数 える 処理 は 、 変 数 「count」 で 処理 


Es 配列 


これ まで 使っ て きた 変数 で は 、1 つ の 変数 に 格納 で きる 値 は 1 せつ だ け で し た 。 
し か し 、 マ クロ の 作成 時 に は 、1 つ の 変数 に 複数 の 値 を 格納 で きる と 便利 な こ 
と が あり ます 。 


配列 の 利点 


た と えば 、「 得 点 デ ー タ 」 を 読み 込ん で 、「 平均 値 ] や [偏差 値 ] な ど 、 各 種 統計 
デー タ を 求め る 処理 を 考え て み ま し ょ う 。 

「 得 点 デ ー タ 」 は 何 度 も 使う の で 、 変 数 に 入れ た いで すね 。 し か し 、1 つ の 変数 
に 1 つの 値 し か 入れ られ な いと な る と 、 


Dim score1 Ag Tong, SCore2 AS Long, SCorG3 AS8 TLongd, SCOFe4 AS 


OMG 
な ど と 「 得 点 デ ー タ 」 の 件 数 だ け 変 数 が 必要 に な っ て し まい ます 。 


また 、 統 計 処 理 で も 、 
AV = (SCor@1 SCor@e2 よ Score3 + “"*) / num 


な ど と 件 数 分 の 変数 を 並べ 計算 する 、 な ど と いう こと は し た く は な いで し ょ う 。 


こん な と き に 便利 な の が [配列 ] で す 。 

[配列 ] と は 、「 複 数 の 値 を まとめ て 格納 で きる 型 ] で 、 配 列 型 の 変数 を 1 つ 用 
意 す れ ば 、 そ の 中 に 得点 デー タ を 何 件 で も (も ちろ ん 、 容 量 の 都合 で 制限 は あり 
ます が ) まとめ て 入れ る こと が で きま す 。 


た と えば 、 配 列 型 変数 ary] を 使う と 、 


afVv(l) - 30 
Mi) 
arVw(3) = 20 


な ど と いう 形 で 、1 つ の 変数 「ary」 に 複数 の 要素 ( 値 ) を 入れ る こと が で きま す 。 
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変数 名 の 後ろ に 付け る 「()」 の 中 の 数 字 は 、「 イン デック ス 」( 添 え 字 ) と 呼ば れる 
も の で 、 配 列 の 各 要 素 に 付け られ る 番号 で す 。 配 列 の 各 要 素 は 、 こ の イン デック 
ス で 参照 し ます 。 


_aryG) = 30 | 較 
と いう 文 は 、「 配 列 ary の 1 番 の 要素 に 30 を 代入 する 」 と いう 意味 に 知り ます 。 


g 列 の 宣言 
配列 の 宣言 は 、 変 数 と 同様 に 、「Dim 文 ] で 配列 に 入れ る 値 の 型 を 指定 し て 行 
な いま す 。 


配列 の 宣 AL は 、 イ ン デ ックス の 値 の 範囲 も 同時 に 指定 する こと に な っ て 
いて 、 た と えば 

pim ary(1 to 10) As TLong 
と いう 宣言 を 行なう と 、「1 か ら 10 ま で の 範囲 の インデ ックス を も つ 要 素数 10 の 
整数 型 配列 ]、 つ まり 「ary(1) 、ary(② 、ary(3) ……'ary(10)] と いう 形 で アク セス 
で きる 10 個 の 値 を 格納 する た め の 整 数 型 配列 を 宣言 し た こと に な り ま す 。 


この イン デック ス の 範囲 に は 任意 の 数 字 を 指定 で きる の で 、 た と えば 、 
Dim ary(-10 to 10) As rong 


と する と 、「-10」 一 「10]」 の イン デック ス を も ン つ 配 列 に な り ま す 。 


た だ し 、 分 か り に くく な る の で 、 特 に 理由 が な けれ ば 、 イ ン デ ックス は 「0」 か 
「1」 か ら 始 め る の が いい の で し ょ う 。 

特に 、「1] か ら 始め れ ば 、 日 常 的 な 意味 で の [番号 ] と 同じ く イ ン デ ックス の 
上 限 の 値 が 配列 の 要素 数 に な る の で 、 感 覚 的 に も 分 か りや すく な り ま す 。 


また 、 他 の プロ グラ ミン グ 環 境 で は 配列 の イン デック ス が 「0」 か ら 始 まる 、 と 
決め られ て いる 場合 も 多い の で 、 そ うし た 扱い に 慣れ て いる 、 あ る い は プロ グラ 
ム を 移植 し て 使う な ら 「0] か ら に する 、 と いう 手 も あ り ま す 。 
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配列 の イン デック ス の 苑 囲 は 、「Dim 文 ] で 宣言 し た 後 で も 、「ReDim 文 」 で 


配列 を 宣言 し 直す こと で 変更 で きま す 。 
泥 と を ば 、 
Sub Main 


Dim ary(1 to 5) As Long 
ary(6) = 1 


End Sub 
と いう マク ロ を 実行 する と 、「1] か ら 「5] の イン デック ス を も つつ 配 列 と し て 宣言 
され た 「ary」 に 、[ary(6)」 と し て 範囲 外 の イン デック ス 「6」 で 参照 し て いる た 


め 、 実 行 す る と エラ ー に な り ま す 。 


し か し 、 こ れ を 、 


Sub Main 


Dim ary(1 to 5) Ag rong 
ReDtm ary(1] to 6) As Long 


cb 有明 o 


豆 nd Sub 
と する と 、 イ ン デ ックス の 範囲 を 「1] か ら 「6」 と し て 「ReDim」 され て いる の で 、 


イン デック ス に 「6] を 指定 し て も 問題 な く 実 行 で きま す 。 
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デック ス の 範囲 を 取得 する 


また 、 配 列 の イン デック ス の 範囲 を 取得 する た め に 、 イ ン デ ックス の 下限 を 
返す 「LBound( )」、 上 限 を 返す 「UBound( )」 と いう 関数 も 用 意 さ れ て いて 、 こ 
れ ら の 関数 を 使う と 配列 の イン デック ス が どの 範囲 に ある か 、 調 べ る こと が で 
きま す 。 


と 沈 ば 、 


Sub Main 


Dim ary(1 to 5) As Long 


MsgBox (Bound ( ar) ) 


MsqdBox (UBound (ay ) ) 


En Sub 
と いう マク ロ を 実行 する と 、「1]、「5] と 配列 の イン デック ス の 下限 と 上 限 の 値 


が 表示 され る は ず で す 。 


「Lbound( )」「UBound( )」 を 使え ば 、 イ ン デ ックス の 範囲 を 調べ る こと が 可能 


[関数 ] や [サブ ルー チン 」 の 引数 と し て 配列 を 渡す 場合 は 、 ま ず こ れ ら の 関数 
で 配列 の イン デック ス の 範囲 を 調べ て か ら 、 配 列 の 各 要 素 を 処理 する こと に な 
る で し まう 。 


EE ルー プ 処 理 @ 


配列 を 使う 場面 で は 、 配 列 内 の 全 要 素 を 順番 に 処理 する 機会 が 多い と 思い 
ます 。 配 列 に 格納 され た デー タ を 順番 に 読み 込ん で 集計 し た り 、 逆 に 順番 に デ 


ー タ を 入れ て いっ た り 、 と いう 感じ で すね 。 


画 For 文 
その よう な と き に は 、「For 文 」 に よる ルー プ を 使う と 、 ス ッ キ リ と 書く こと が 


で きま す 。 

これ は 、「Do 文 ] に よる ルー プ と 同様 に 、| 一 定 の 条件 を 満た す 間 」 処 理 を 繰り 
返す ルー プ 構 文 で す が 、「 最初 に 変数 の 値 を 設定 し 、 処 理 を 行なう た びに 変数 の 
値 を 加算 し て 、 変 数 の 値 が 一 定 の 値 に な る まで | ルー プ す る 、 と いう 構文 で す 。 


For 変数 = 初期 値 mo 終了 値 
ルー ブ プ 処理 

いい に よ :3m 
と する と 、 指 定 の 変数 の 値 を 初期 値 に 設定 し た 後に 、 ル ー プ 処理 を 実行 し ます 。 

ルー プ 処 理 を 実行 し 終 を た ら 変 数 を 1 ずつ 加算 し 、「For 文 ] に 戻り ます 。 そ こ 
で 変数 の 値 が 終了 値 を 超え て いる か 調べ 、 超 えて いた ら ル ー プ を 終了 する わけ 
で す 。 

た だ し 、「For 文 ] を 終え た 時 点 で は 、 変 数 の 値 は 「 終 了 値 + 1] に な っ て いる 点 
に 注意 し て くだ さい 。 

た だ ど え ば 、 


Sub Main 


_ Dim ary(1 to 10) As rong 


_ Dim 1 As Long 


_ mor i = 1 mo 3 


[2-9] ルー プ 処 理 @ 
0 


| 「 _MsgBox (3) 


| 1 Nert 1 ( 


SSBQID レー ブロ ーー + ュ ) 


nd Sub 
と いう マク ロ を 実行 し て み ま し ょ う 。 


「For 文 」 を 抜け た 時 点 で 「1」 が 加算 され る の で 、 最 後 の 「MsgBox( )」 で は 「 に 4」 と な る 


ルー プ 内 で 変数 [ii] の 値 を 表示 し ます が 、 最 初 に 初期 値 で ある 「1| が 表示 さ 
れ 、 そ の 後 「2]、 最 後に 終了 値 「3] が 表示 され ます ね 。 そ し て 、 終 了 時 の [il」 の 値 
は 「4」] に な っ て いま す 。 


つま り 、 ル ー プ 内 の 処理 で は 、「1.2.3 と いう 1 ずつ 増え て いく 変数 i の 値 ] を 使 
っ て 処理 を する わけ で す 。 こ れ は 、 ま さ に [配列 内 の 各 要 素 に 対す る 順次 処理 ] 
の た め に ある よう な 構文 で すね 。 
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と いっ て も 、「For 文 ] は 別に 配列 処理 専用 の 構文 と いう わけ で は な く 、 変 数 
の 増加 分 に つい て も 任意 に 指定 で きま す 。 


変数 の 増加 分 を 指定 する に は 、「For 文 ] の 最後 に 、「Step 増 加 分 」 を 追加 し 
ま 光 > 


だ と えば 、 


Sub Main 


Dim 1 As Long 


還 の ll 負 ONPO 9 IS も ep 3 
MsgBox (1 ) 
ex モ 
Ernd Sub 


と いう マク ロ を 実行 する と 、 最 初 に [0] が 、 次 に 3 を 加え た 「3]、 さ ら に 「6]「9」 と 
表示 され 、[il の 値 が 3 ずつ 増え て いく の が 分 か る と 思い ます 。 


「0」 か ら 「9」 ま で 、「i」 の 値 が 3 ずつ 加算 され て いく 


[2-10] 多 次 元 配列 


ちな み に 、「Step」 で 指定 する 増加 分 に は 、 負 の 値 を 指定 する こと も で きま す 
(減少 分 の 指定 )。 

この 場合 は 、 初 期 値 に 終了 値 よ り 大 き な 値 を 入れ る よう に し て くだ さい 。 そ 
うし な いと 、 い つま で も 終了 値 に 達せ すず 、 ル ー プ が 終わ ら な いた めで す 。 


Pa10O| 。。 多 次 元 本 列 


配列 の 宣言 で は 、 複 数 の イン デック ス を も つ 「 多 次 元 配列 ] を 宣言 する こと 
が で きま す 。 

多 次 元 の 配列 は 、 イ メー ジ と し て は 配列 の 各 要 素 が 配列 に な っ て いる 「 配 列 
の 配列 ] の よう な も の で す 。 


画 多 次 元 配列 の 宣言 


この 多 次 元 配列 の 宣言 は 、 
Dim ary(1 To 5, 1 mo 5) As Long 
の よう に 、 各 次 元 の イン デック ス 範 囲 を 「 カ ンマ ](,.) で 区 切っ て 行ない ます 。 


この 例 で は 、 各 次 元 に 「1] か ら 「5] の イン デック ス で 参照 可能 な 5 つの 要素 が 
ある 2 次 元 配列 を 宣言 し 、 合 計 で 「5x5=25」 の 要素 を 格納 可能 な 配列 が 作ら れ 
る わけ で す 。 


この 配列 は 、 各 要素 が 5 つの 要素 を も つ 配 列 に な っ て いる 配列 、 ま た は 、 以 下 
の よう な 5 つの 要素 を も つ 配 列 が 、5 行 積み 重なっ た よう な イメ ー ジ で す 。 


ary(1, 1) ary(1, 2) ary(1, 3) ary(1, 4) ary(1, 5) 
ary(2, 1) ary(2, 2) ary(2, 3) ary(2, 4) ary(2, 5) 
ary(3, 1) ary(3, 2) ary(3, 3) ary(3, 4) ary(3, 5) 
ary(4, 1) ary(4, 2) ary(4, 3) ary(4, 4) ary(4, 5) 
ary(5, 1) ary(5, 2) ary(5, 3) ary(5, 4) ary(5, 5) 
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|Calc」 の 表 計 算 シ ー ト は 、 横 方 向 に [AB,C…」] と いう 「 列 」、 縦 方 向 に 「1.2,3 
…| と いう 「 行 」 が 並ぶ 行列 構造 に た っ て いて 、 各 セル は 「A1 セ ル 」 な ど と 「 列 名 ] 
と 「 行 名 ] で 指定 し ます が 、2 次 元 配列 の イメ ー ジ は ちょ うど それ と 同じ よう な 
感じ で す 。 


* 

も っ と も 、 通 常 の 配列 (一 次 元 ) を 使っ た 場合 で も 、「5x5」 の 2 次 元 構造 な ら 25 

個 の 要素 を も つ 一 次 元 配列 [ary] を 用 意 し て 、 
Dim ary(1 To 25) 


ary(1) か ら ary(5) は (1,1) か ら (1,5) に 対応 
ary(6) か ら ary(10) は (2,1) か ら (2,5) に 対応 


ary(20) か ら ary(25) は (5,1) か ら (5,5) に 対応 
の よう な 形 で 表現 で きる の で 、 そ れ ほ ど 多 次 元 配列 の 必要 性 は な いと 言え る か 
も し れ ま せん 。 


た だ 、 多 次 元 配 列 を 使う と 、2 次 元 や 3 次 元 な ど 、 多 次 元 構造 の デー タ を 分 か 
りや すい 形 で 表現 で きる 場合 が あり ます 。 


た と えば 、 複 数 の 学生 の 3 教科 の 得点 デー タ を 、 
seore(1 mo 学生 数 , 1 mo 3) 
の よう な 2 次 元 配列 で 扱う 手 も 考 えら れる で し ょ う 。 
と こう し て お け ば 、 
mor : = 1 ro 学生 数 


> ュ 。 1) の 国語 の 得点 を 使っ た 処理 
。 2) の 数 学 の 得点 を 使っ た 処理 
( ュ 。 3) の 英語 の 得点 を 使っ た 処理 


の よう な 感じ で 、 簡 潔 に 各 学生 の 得点 を 処理 する こと が で きま す 。 


さ れ て いる 、 便 利 な 機 


「 指 定 し た ファ イル の 読み 書き 」 や 「 ボ 
タン を 押す と 設定 し た 処理 を 開始 する ダ 
イア ログ 」 な ど 、OpenOffice に は 、 マ ク 
ロ 機 能 を さら に 便利 に する さま ざま な 機 
能 が あり ます 。 


ここ で は 、 こ れ ら の 機能 に つい て 学ん 
で いき まし ょ よう 。 
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「O00o」 で は 、[「 通 常 の テキ スト 」 や [CSV」「TSV」 | 数字 の 羅列 ] な ど 、 さ ま ざ 
まな 形 の 文字 列 を 扱い ます 。 マ クロ に も 文字 列 を 扱う た め の 関 数 が 各種 用 意 さ 
れ て いる の で 、 試 し て みみ まし ょ う 。 


文字 列 を 分 割 し て 、 配 列 と し て 返す 


まず は 、「CSV」 を 扱う と き に 便利 な [Split( )」 関 数 で す 。 こ れ は 、 文 字 列 を 特 
定 の 「 区 切り 文字 列 」 で 分 割 し 、 そ の 配列 を 返す も の で す 。 


半 台 売 、 
喘 Gm LEBmm2 1Eem3 
と いう 文字 列 を 、「,」 を 区 切り 文字 列 と し て 分 割 し 、 各 項目 を 「 配 列 ] と し て 返 
す な ら 、 
向 境 時 利和 IO 志 仙 机 届 Em2 em8Wiini0) 


な し ます 。 


る と を 、 
item1 
中 mm2 
item3 


と いう 文字 列 を 要素 と する 配列 が 返さ れる わけ で す 。 


2 番目 の 引数 に 指定 する 「 区 切り 文字 列 ] に は 、 任 意 の 文字 列 が 指定 で きる の 
1 
itemlalboitem2aboiEem3 
と いっ た 文字 列 を 「abc」 を 「 区 切り 文字 列 ] に 分 割 す る 、 と いっ た こと も で き 
ます 。 
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FPPYRIZrstFrSieewiamzrrets STREET 


Sub Main 
ー pm tamsU AS 8 モエ ュ ng 
itemS = Sp1liE("itemlaboitem2aboitem3", "abc" ) 
MsgBox 1Eems (1 ) 


End Sub 


5Q 生 Ce eeal 


teFm2 


文字 列 が 「abc」 を 区 切り と し て 分 割 さ れる 


一 配列 の 文字 列 を CSV 文 字 列 に まとめ る 


こん ど は 逆 に 、「 配 列 の 文字 列 ] を 1 つの 「CSV 文 字 列 ] に まとめ て み ま し ょ う 。 
「Join( )」 を 使う と 、「 配 列 の 文字 列 」 を 指定 の 「 区 切り 文字 列 」 を 挟み な が ら 
1 つの 文字 列 に ほ まとめ る こと が で きま す 。 


た と えば 、 以 下 の マ クロ を 実行 する と 、 配 列 の 各 要 素 の 文字 列 が 「,] を 挟ん だ 
[CSV」 と し て 連結 され て 表示 され ます 。 


Sub Main 


Dim 1iEems(0 To 2) Ag 8tring 


_Dim sr As 8t と tng 


items(0) = "1Eem1* 


_ itemns(l) - item 
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う 


Memee) bn3 


、 | str donlltene * T) 
| MagBox st 
End Sub 


Itern1.itern2,itern3 


配列 が 、「,」 を “区 切り 文字 " と し て 連結 され る 


「Join( )」] の 2 番目 の 引数 に 「" "を 渡す と 、「 区 切り 文字 な し 」] で 、 配 列 の 各 要 
素 を 単純 に 連結 し た 文字 列 が 得 ら れ ま す 。 


[CSV」 の 処理 は 行なう 機会 も る 多い と 思う の で 、 こ れ ま で 試し て みた マク ロ を 
いろ いろ 修正 し な が ら 実 行 し 、[Split( )] と 「Join( )」 の 扱い に 慣れ て お きま し 
妃 の 8 


字 列 の 前 後 の 空白 を 取り 除く 


[CSV」 か ら 切 り 出 し た 文字 列 に は 、 先 頭 や 未 尾 に 「 空 白 ] が 付い て くる こと 
が ある か も し れ ま せん 。 そ ん な 先頭 や 未 尾 の 空白 を 取り 除く の が 、「Trim( )」 で 


す 。 
この 関数 は 、 渡 され た 文字 列 の 先頭 と 末尾 に ある 空白 を 除去 し た 文字 列 を 
返し ます 。 


以下 の マク ロ を 実行 する と 、 文 字 列 「str」 の 先頭 と 末尾 の 空白 が 除去 され て 、 
|:te s」 と 表示 され ます (中 間 の 空白" が 取り 除 か れ て いな い 点 に 注意 )。 
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| 1 9 、 | | 


MSgBoX 『!:! な Trim(Str) S&S ":" 


jnd gub 


文字 列 の 「 文 頭 」 と 「 文 末 」 の 空白 が 削除 され る 


また 、「Trim( )」 は 「 先 頭 ]「 未 尾 」 両 方 の [空白] を 取り 除き まし た が 、[LTrim( )」 
を 使う と 、 先 頭 に ある [空白 ] の み 取り 除き 、「RTrim( )」 を 使う と 末尾 の 「 空 白 」 
の み を 取り 除く こと が で きま す 。 

先 の マク ロ の [Trim(str)」 の 部 分 を 、[LTrim (str)」 や 「RTrim(str) 」 に 変更 し 
て 試し て みて くだ さい 。 


「LTrim(str)」 の 場合 「RTrim(str)」 の 場合 
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マク ロ に は 、「 フ ァイル の 読み 書き 」 に 関す る 機能 も 用 意 さ れ て いま す 。 
ファ イル 読み 書き 機能 を 使う と 、 コ ンピュータ に 保存 され て いる ファ イル や ネ 
ッ ト 上 の ファ イル に アク セス し て 内 容 を 取得 し た り 、 情 報 を 保存 し た り で きる よ 
うに な る の で 、 さ ま ざ ま な デー タ を [OOo」 に 取り 込む こと が 可能 に な り ま す 。 


ファ イル の 読み 書き に は 、「 フ ァイル 番号 ] と いう 番号 を 使い ます 。 

これ は 、「00o」 で 管理 し て いる ファ イル ・ ア クセ ス の 番号 で 、「Freefile( )」 
関数 で 使用 可能 な 番号 を 取得 で きま す 。 

ファ イル 番号 を 取得 し た ら 、①「 フ ァイル ・ パ ス 」 と 、② 読 み 込み や 書き 込み 
と いっ た 「 モ ー ド 」、 そ し て ③ 取 得 し た 「 フ ァイル 番号 ] を 指定 し て 、「Open 文 」 
で ファ イル を 開き ます 。 


た と えば 、 以 下 の よ うに する と 、「d:\test.txt] と いう ファ イル を 読み 込み 用 に 
開く こと が で きま す 。 


Dim 1Fi1le As Tnteqge エ 
1File = Freefile 


Open !d:\Ees ヒ .LxE" or TnPut AB #1F11G 


ファ イル を 開い た ら 、 続 いて 「Line Input] な ど フ ァイル ・ ア クセ ス 用 の 構文 
に 「 フ ァイル 番号 ] を 渡し て ファ イル を 読み 取り 、 最 後に 「Close] で ファ イル を 
閉じ ます 。 


ファ イル の 行 デ ー タ を 調べ る 


試し に 、 適 当 な テキ スト ・ フ ァイル (あま り 大 きく な いも の ) を 用 意 し て 、 適 当 
な 場所 に 配置 し て くだ さい 。 


[3-2] ファ イル の 読み 書き 


その 後 、 以 下 の マ クロ の 「d:#test.txt| の 部 分 を テキ スト ・ フ ァイル の パス に 
書き 換え て 実行 し て みみ ましょ う 。 


Sub Main 


Dim iFile As Tnteger 


Dim strLine Ag String 


1File = Freefi]e 


Open "dd:\Eest .Lx 上 " 下 Oor TnPu Ag #1Fi]e 


ine Tnput #1File, strLine 


MsgBox StrTL1ine 


C1ose 持 1F11e 


End Sub 


実行 する と 、 最 初 の 一 行 ( 最 初 の 改行 まで の 部 分 ) が 表示 され た と 思い ます 。 


テキ スト ・ フ ァイル の 一 行 目 の 内 容 が 表示 され る 

「Line Input 文 」 は 、 指 定 の ファ イル か ら 一 行 読み 込ん で 、 現 在 の 位置 を 次 の 
行 の 先頭 に 進め ます 。 た だ し 、 す で に ファ イル の 終わ り に 達し て いる の に [Line 
Input」 を 呼び 出す と エラ ー に な る の で 、 注 意 し て くだ さい 。 
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ー タ が 残っ て いる か を 調べ る 


[Line Input 文 ] で ファ イル を 読み 込む と き は 、 前 も っ て ファ イル の 終わ り に 
達し て いる か 調べ る 「eof 文 ] で 、 フ ァイル に まだ デー タ が 残っ て いる か 、 確 認 す 
る よう に し まし ょ う 。 

[eof] は 、 フ ァイル の 終わ り に 達する と 「True」 を 返す の で 、 テ キス ト ・ フ ァ イ 
ル 全 体 を 1 行 ずつ 読み 込ん で 順次 処理 する に は 、 以 下 の よ うに し ます 。 

数 行 の 適当 な テキ スト ・ フ ァイル を 作っ て 保存 し た ら 、 そ の ファ イル の 場所 
を 「d:\test.txt」 の 位置 に 指定 し て 実行 し て みて くだ さい 。 


Sub Main 


Dim 1File As Tnteger 


Dim strLime AS SE エ ing 


1F1ile = Freefi1e 


Open "dd:\EesE .Ex ヒ 上 " Fo TnPu モ AB #1Fi]1G 


Whi1e not eoE (1iFi1e) 


Line Tnpu ヒ 上 #iFi]e, SErLine 


MsqBox SErLi1ne 


Wend 


C1ose #1Fi]e 


End Sub 


[3-3] オブ ジェ クト 


1 行 ず つ デ ー タ が 読み 込ま れる 


3| ネフ シェ クト 。 


IO0o」 に 限ら ず 、 最 近 の ソフ ト で は 多数 の 「 オ ブ ジ ェクト 」 が 活躍 し ます 。 

何 か 行 な いた い 処 理 が ある 場合 は 、 ソ フト や シス テム に 対し て オブ ジェ クト 
を 要求 し 、 そ の オブ ジェ クト が 公開 し て いる 機能 で 処理 を 実現 する 、 と いう 形 
(9 


「 オ プ ジ ェ クト 」 と は 、 い くつ か の 「 プ ロ パ ティ 」( 外 部 か ら 参 照 で きる 属性 。 オ 
プ ジ ェ クト の 状態 や 設定 を 取得 、 変 更 する ) や 「 メ ソ ッ ド ]」( 外 部 か ら 利 用 で きる 
機能 。 サ ブ プルー チンキ 関数 と し て 公開 され 、 呼 び 出 すこ と で オブ ジェ クト に 一 
定 の 動作 を 行なわ せる ) を ひと まとめ に し た も の で す 。 


を 利用 する 流れ 


た と えば 、 多 く の シ ステ ム で は 動画 や 音楽 を ま 再生 する 「 メ ディ アプ レイ ヤー] 
も オブ ジェ クト と し て 公開 され 、 各 種 の プロ グラ ミン グ 環 境 か ら 利 用 で きる よ 
うに な っ て いま す 。 
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この 「 メ ディ アプ レイ ヤー・ オ ブ ジ ェクト 」 を プロ グラ ム で 使う 場合 は 、 
[1]] シ ステ ム に 対し て 「 メ ディ アプ レイ ヤー・ オ ブ ジ ェクト 」 を 要求 。 
[2] 取 得 し た メデ ィ ア プレ イヤ ー の プロ パテ ィ を 変更 し 、「 表示 形式 ] や 「 大 き さ 」 
な ど を 設定 。 
[3]「 読み込み メソ ッ ド 」 で 再生 する デー タ を 読み 込む 。 
[4]「 再 生 メ ソ ッ ド 」 で 再生 開始 。 
と いっ た 流れ で 再生 を 行なう こと に な る で し ょ う 。 


た だ 、 こ の 場合 も 、 シ ステ ム が 返す の は 、「 オ ブ ジ ェクト | その も の と は 限り ま 
せん 。 場 合 に よっ て は 、 オ プ ジ ェ クト の 一 部 分 に アク セス する た め の 「 インター 
フェ イス 」 を 返す 場合 も あり ます 。 


弄 オ ブ ジ ェクト と イン ター フェ イス の 違い 


「 イ ンタ ー フ ェ イ ス 」| は 、「 オ ブ ジ ェクト が 備え る 機能 や 設定 ] を 定義 し て 操作 
する た め の リ モコ ン の よう な も の で す 。 

「 メ ディ アプ レイ ヤー・ オ ブ ジ ェクト ] を 操作 する た め の イ ンタ ー フ ェ イ ス で 
あれ ば 、「 表 示 形 式 ] や [音量] な ど を 設定 する "プロパティ" や 、[ 再生] [停止 」 
と いっ た “メソッド ” を も つこ と に な る で し ょ う 。 

イン ター フェ イス を 使う ぶん に は 、 基 本 的 に オブ ジェ クト と 同じ 感覚 で 使え 
る の で 、 返 され る の が 「 オ ブ ジ ェクト その も の 」 か [オブ ジェ クト を 扱う た め の イ 
ンタ ー フ ェ イ ス 」] か 、 と いっ た 違い は あま り 意 識 す る 必要 は あり ませ ん 。 


た だ 、 シ ステ ム の 側 に と っ て は 、 イ ンタ ー フ ェ イ ス を 返す 形 に する と 、「 オ ブ ジ 
ェクト その も の ]」 を 返す 必要 が な く な る (オブ ジェ クト を 直接 操作 され ず に す 
む ) の で 、 オ ブ ジ ェクト が 提供 する 機能 や 属性 を どう いっ た 形 で 実現 する か 、 自 
由 に 決め や すく な り ま す 。 

オプ ジェ クト の 機能 の 詳細 を 変更 し た り 、 複 数 の オプ ジェ クト を 用 意 し て 状 
況 に 応じ て 適し た [オブジェ クト を 操作 する た め の イ ンタ ー フ ェ イ ス ] を 渡す 、 
と いっ た こと が 行ない や すく な る わけ で す 。 


[3-41 イン ター フェ イス 


「 プ レイ ヤー を 使わ せ て くれ | と 言わ れ て も 、 プ レイ ヤー その も の を 渡し て し 
まう の で は な く 、「 機 能 を 限定 し た リモ コン |( プ レイ ヤー を 使う た め の イ ンタ ー 
フェ イス ) を 渡し て 、「 プ レイ ヤー は 企業 秘密 で 貸 せ な いか ら 、 こ の リモ コン を 通 
し て 使っ て くれ 」 と いう よう な 感じ で し ょ うか 。 


4| 。 ニ イン ター フェ イス 。 


「OO0o」 が 公開 し て いる 「 イン ター フェ イス 」 を マク ロ で 実際 に 使っ て み ま し 
お 


是 サ ービス 


「O0o] の マク ロ で は 、「00o」 が 提供 する イン ター フェ イス を 「 サ ービス 」 と 
いう 形 で 取得 し ます 。 

サー ビス は イン ター フェ イス と 同様 に 、 い くつ か の 機能 を 提供 し ます が 、「 ひ 
と つの サー ビス 」 が 「 複 数 の イン ター フェ イス 」] を も っ て いる こと も あり ます 。 ま 
た 、 サ ービス の 中 に サー ビス が 含ま れ て いる こと も あり ます 。 

と は いえ 、 マ クロ か ら 使 う 場合 は 、 サ ービス の 中 に 含ま れる イン ター フェ イス 
に つい て は 特に 意識 する 必要 は な く 、 サ ービス を 取得 したら 、 直 接 サ ービス に 
含ま れる イン ター フェ イス の メソ ッ ド を 呼び 出す こと が 可能 で す 。 


サー ビス を 作る 「CreateUnoService( )」 関 数 に 、 サ ービス の 名 前 を 渡す と 、 


その サー ビス が 作ら れ て 返さ れる の で 、 そ の サー ビス が も っ て いる イン ター フ 
ェ イ ス を 通し て 、「00o]」 の 機能 を 利用 する の で す 。 


硬 フ ォ ル ダ 選 択 ダ イア ログ の 表示 


サー ビス の 中 に 、「 デ ィ レ クト リ 選 択 ダ イア ログ ]| を 提供 する 「com.sun.star. 
ui.dialogs.FolderPickerl と いう サー ビス が ある の で 、 ま ず は これ を 試し て み 
まし まう 。 
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サー ビス の 利用 は 、 
[1]「Object 型 ] 変 数 を 用 意 する 。 
[2]「 CreateUnoService( )」 で 作っ た サー ビス を 、[ Object 型 」 の 変数 に 格納 する 。 
[3]1 サ ービス の も つ イ ンタ ー フ ェ イ ス を 通し て サー ビス 機能 を 利用 する 。 
と いう 流れ で 行ない ます 。 


ここ で 試し て みる 「FolderPicker] サ ービス に は 、「XFolderPicker」 と いう 
イン ター フェ イス が あり 、 こ の 「XFolderPicker]」 インターフェイス の 各 メ ソ ッ 
ド で 、 ダ イア ログ を 表示 し た り 、 選 択 さ れ た ダイ アロ グ を 取得 し た り し ます 。 
試し に 、 以 下 の マ クロ を 実行 し て みて くだ さい 。 
Sub Main 
Dim FD As ObJeo モ 
fp = oreateUnoService ("com. sun.SEar.ui .dia1ogs .Fo1derPicker" ) 
fp . exxecute ( ) 
MsgBox ( Ep . getDirec も ory ( ) ) 


End Sub 


実行 する と 「 フ ォ ル ダ 選 択 ダ イア ログ | が 出 て き て 、 フ ォ ル ダ を 選ん で ダイ ア 
ログ を 閉じ る と 選択 され た フォ ル ダ が 表示 され た と 思い ます 。 
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[ バス の 所 


フォ ル が を 選択 し て くだ さい 。 


Ha | 
ks 詳 NRTTKR 内 
> 0 
ウー 四 

s 久 ロー カル ディ スク (CO 四 
と as SD / MM (D3 
ト 四 議 Memary Stick (E) 

E 言 DVD RW ドラ イブ (F) 

b 計 HD DVD-ROM ドラ イブ (G) 

b ロー カル ディ スカ (Ni) に 


OK キャ > 導 ル | 


「 フ ォ ル ダ 選 択 ダ イア ログ 」 が 表示 され る 


園 [ サ ービス の 一 覧 インター フェ イス の 一 覧 」 を 取得 する 


マク ロ を 開発 する 際 は 、 取 得 し た サー ビス が 実際 に どん な サー ビス や イン タ 
ー フ ェ イ ス を も っ て いる か 、 調 べた く な る こと も ある で し ょ う 。 

サー ビス は 、 内 部 に 複数 の サー ビス や イン ター フェ イス を 含む こと が で きる 
の で 、 調 べ て みる と 意外 な 機能 を も っ て いる こと も あり ます 。 


すべ て の サー ビス が 実装 すべ き と さ れ て いる 「XServicelnfo] イ ンタ ー フ ェ 
イス の 「getSupportedServiceNames( )」 メ ソ ッ ド を 使う と 、 使 用 可能 な 「 サ 
ービス の 一 覧 」 を 取得 で きま す 。 

さら に 、「Dbg_SupportedInterfaces」 で は 「 イ ンタ ー フ ェ イ ス の 一 覧 ] を 文 
字 列 と し て 取得 で きま す 。 

取得 し て みた も の の 、 使 い 方 が よく 分 か ら な い サ ービス は 、 ま ず 
[Dbg_SupportedInterfaces」 で イン ター フェ イス の 一 覧 を 取得 し 、 各 イン ター 
フェ イス に つい て 調べ て みる の も 手 で し ょ う 。 


例 と し て 、 今 回 使っ た [FolderPickerl が も っ て いる イン ター フェ イス を 見 る 
に は 、 以 下 の よ うに し ます 。 
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_MsgBox (Ep .Dbg_SupporEedTnterfFaceS ) 


End Sub 


と 
soffce 


Supported interfaces by object 
"com.sun.5tar.ui.dialoqs.FolderPicker"・ 
Com.sun.star.ui-dialoqs.XFolderPicker 
com.sun.star.ui.dialogs.XExecutableDialog 
Com.suhn.star.|Iang.XServiceInfo 
com.sun.star.util.XCancellable 
corm.sun.star.Iand.XTypeProvider 
Com.sun.star.uno.XWegk 


イン ター フェ イス の 一 覧 が 表示 され る 


また 、 同 様 に 「Dbg_Properties」 で サー ビス が も っ て いる プロ パテ ィ を 、 
「Dbg_Methods」 で メソ ッ ド の 一 覧 を 取得 で きま す 。 


た だ 、 プ ロ パ ティ や メソ ッ ド は 数 が 多い で すし 、 名 前 だ け 列 挙 さ れ て も 分 か 
り に くい の で 、 個 々 の プロ パテ ィ や メソ ッ ド に つい て は 、 イ ンタ ー フ ェ イ ス や サ 
ービス の 一 覧 を 取得 し た 後 、 リ ファ レン ス で 個別 に 確認 し た ほう が いい か も し 
れ ま せん 。 


まし まう 。 


「O0o」 に は 、「 ボ タン | や 「 ラ ベル 」 な どの GUTI 部 品 を 自由 に 配置 し て 、 独 自 の 
ダイ アロ グ を 作る 機能 が 用 意 さ れ て いま す 。 こ の ダイ アロ グ の 機能 を 使う と 、 ち 
ょ っ と し た [設定 フォ ー ム 」 な ど を 簡単 に 作っ て 、 マ クロ か ら も 利用 で きる の で 


便利 で す 。 


画 ダ イア ログ の 作成 


[3-5] ダイ アロ グ の 作成 


3 は -5| ニタ イア ログ の 作成 | 


[フォ ル ダ 選 択 ダ イア ログ ]| に 続い て 、 こ ん ど は 独自 の ダイ アロ グ を 作っ て み 


ダイ アロ グ を 作る に は 、「 ダ イア ログ ・ エ ディ タ 」 を 使い ます 。 


[Calcl な どの アプ リケーション を 起動 し た ら 、 ツ ー ル の 「 マ クロ ] 


ら 「 ダ イア ログ の 管理 ] を 選ん で くだ さい 。 


OpenOffice,org Basic マク ロ の 管理 SEI 
ml タイ アロ 2 萌 唐 | SG 6 
ダイ アロ グ ) 人 
怖 @ マイ ダイ ァ ロ タダ 。。 _ ーー デーーー ニ ーー 
| は 1 の ダイ アロ グ 1 軸 義 b る | 
] 
| | 
| に 。MO。 | 
| | 了 
計 ERBREE yam 
ーー SSC9SORTanETc = 衣 
「 ダ イア ログ の 管理 」 画 面 
「 ダ イア ログ の 管理 」 画 面 で は 、「 無 題 1] な ど 、 現 在 の 文書 の アイ コン を クリ 
ッ ク し 、「 新 規 作成 ] し ます 。 


ダイ アロ グ の 名 前 の 指定 は 、 と りあ え ず デフ ォ ル ト の 「Dialog1] の まま に し 


て お きま し ょ う 。 


第 3 章 OpenOffice マ クロ に 用 意 さ ざれ て いる 、 便 利 な 機能 


1「OK] ボ タン を クリ ッ ク す る と 、 文 書 の 下 に 「Standard] フォ ル ダ が 作ら れ 、 
その 中 に ダイ アロ グ が 作ら れ ま す 。 

作ら れ た ダイ アロ グ が 選択 状態 に な っ て いる こと を 確認 し 、[ 編集 ] ボ タン で 
ダイ アロ グ に GU 部 品 を 配置 する 「 エ ディ タ 」 画 面 に 入っ て くだ さい 。 


| ] 
GO | 
48. 同 | 

有 

賠 回 | 
回 還 | 
- 

CN リク EE KBHEEEEEBH 
1.5tandard.Dialogt 内 ! 上 


「 エ ディ タ 」 画 面 


「 エ ディ タ ] 画 面 で は 、「 ツ ー ル ・ ボ ックス | に 、 ダ イア ログ に 配置 で きる GUI 
部 品 が 並ん を で いま す 。 

と りあ え ず 、「 テ キス ト ・ ボ ックス | (入力 欄 ) を クリ ッ ク し て 選択 したら 、 ダ 
イア ログ の 上 で 適当 に ドラ ッ グ し て 、 配 置 し て くだ さい 。 
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「 テ キス ト ・ ボ ックス 」 を 配置 


「 テ キス ト ・ ボ ックス ] を 配置 し た ら 、 左 クリ ッ ク で 「 プ ロ パ ティ 」 設定 画 面 を 
呼び 出し 、 名 前 を 「testField] な ど 適当 な 名 前 に 変更 し て お きま す 。 


プロ パテ ィ ー: TextFieid 周 


.…testFiel 


| ペー ジ ( ス テッ プ ) 
| タブ スト ッ プ .. 


「 プ ロ パ ティ 」 設 定 画面 
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以上 で テス ト 用 の ダイ アロ グ が 出来 た の で 、 マ クロ か ら 表 示し て み ま し ょ う 。 
「 マ クロ の 編集 」 画 面 に 入っ た ら 、 以 下 の マ クロ を 実行 し て みて くだ さい 。 


gub Main 
Dim dlg As Object 
DialogLibrartes . LoadLibrary ("Standard" ) 


d1g = CreateUnoDialog(DialogLibraries .Standard .Dia] og1 ) 


dl1g.Execue ( ) 


End Sub 


実行 する と 、 先 ほど 作っ た ダイ アロ グ が 表示 され た と 思い ます 。 


1 


作っ た ダイ アロ グ が 表示 され る 
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この マク ロ で は 、 ま ず ダ イア ログ を 含む 「Standard] ラ イブ ラリ を 読み 込み 、 
「CreateUnoDialog( )」 で ダイ アロ グ の 名 前 を 指定 し て ダイ アロ グ を 作り 、 最 
後に 「Execute( )」 メ ソ ッ ド で ダイ アロ グ を 表示 し て いま す 。 


[Execute( )」 は ダイ アロ グ を 表示 する メソ ッ ド で す が 、 ダ イア ログ を 表示 す 
る と 、 何 ら か の 方 法 で ダイ アロ グ が 閉じ られ る まで マク ロ に 制御 を 返さ な い ( ダ 
イア ログ 表示 中 は マク ロ の 処理 が 止ま る ) の で 、 注 意 が 必要 で す 。 

[Execute( )] は ダイ アロ グ が 閉じ られ る と 終了 し 、 返 り 値 で ダイ アロ グ が 閉 
じ ら れ た 原因 を 知る こと が で きま す 。 

も し エラ ー に な る 場合 は 、「 ダ イア ログ の 管理 ] メ ニュ ー で 再度 「 ダ イア ログ 
の 管理 ] 画 面 を 呼び 出し て 、 ダ イア ログ の 名 前 を 確認 し て みて くだ さい 。 


ダ イア ログ の GUI 部 品 に アク セス する 


次 に 、 ダ イア ログ に 配置 し た GU 部品 、 先 ほど 作っ た ダイ アロ グ の テキ スト ・ 
ボッ クス [testField] に アク セス し て み ま し ょ う 。 

ダイ アロ グ 上 の GUI 部 品 に アク セス する に は 、GUI 部 品 の 名 前 を 引数 に 
「GetControl( )」 メ ソ ッ ド を 呼び 出し ます 。 


以下 の マク ロ で は 、 先 ほど の ダイ アロ グ を 表示 し た 後 、 ダ イア ログ に 配置 し 
た テキ スト ・ フ ィ ー ル ド を 取得 し 、 そ の 内 容 (Text) を 表示 し ます 。 

実行 し た ら 、 ダ イア ログ 内 の テキ スト ・ フ ィ ー ル ド に 適当 な 文字 列 を 入れ て 、 
ダイ アロ グ を 閉じ て みて くだ さい 。 


Sub Main 


| Dim dlg As Object 
、。 Dim Eld As Object 


」 _Dia1ogripraries .Loadribrary ("tandard') ー 


ユ 


9 9 = CreateUnoDia1og (Da1ogLibraries .SLandard .D 
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1g. Exxecute () 


| | ld = dlog.GetContro1 ("LestFie1d" ) 
_ MsgBox E1q.Text 


End Sub 


「 Wi 


テキ スト ・ フ ィ ー ル ド に 入力 し た 内 容 が 、 メ ッ セ ー ジ ・ ボ ックス に 表示 され る 


圏 ボタ ン の 追加 


最後 に に 、 ダ イア ログ に 「OK| ボ タン を 追加 し て み ま し ょ う 。 

ダイ アロ グ に [OK| ボ タン を 追加 し て お く と 、 そ の ボタ ン を クリ ッ ク し た と き 
に ダイ アロ グ を 閉じ て 、「Execute( )」 の 返り 値 で 、「OK] ボ タン か ら ダ イア ロ 
グ が 閉じ られ た こと を 確認 で きる よう に な り ま す 。 


つま り 、「OK」 ボ タン を 追加 し た ダイ アロ グ で は [Execute( )」 で 表示 し た 結 
果 、 返 され る 値 を 見 る こと で 、「OK ボ タン を クリ ッ ク し て 終了 し た | の か 「 そ れ 
以外 の 方 法 で 終了 し た 」 の か 、 見 分 ける こと が で きる よう に な る わけ で す 。 
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|「OK| ボ タン で 終了 し た な ら ダ イア ログ で 指定 され た 処理 を 実行 し 、 そ う で 
な けれ ば キャ ン セ ル さ れ た も の と し て 何 も し な い 。 こ の よう な [終了 方 法 に よる 
処理 の 振り 分 け 」 を 実現 し て み ま し ょ う 。 


ダイ アロ グ に 「OK] ボ タン を 追加 する に は 、 ま ず 「 ダ イア ログ の 管理 ] 画 面 で 
先ほど 作っ た ダイ アロ グ [Dialog1」 を 選ん で 「 編 集 ] ボ タン を クリ ッ ク し 、「 ダ イ 
アロ グ ・ エ ディ タ ]」 を 呼び 出し ます 。 

そこ で ダイ アロ グ に ツー ル ・ ボ ックス か ら 選 ん だ 「 ボタン] を 追加 し て くだ 
さい 。 


陳 


日 ロ 


ロ CommnandButton1 


間 記 | 


jm 〇 


ダイ アロ グ に ボタ ン を 追加 する 


ボタ ン を 追加 し た ら 、 プ ロ パ ティ で [okButton| な ど 、 適 当 な 名 前 を 付け 、 下 
の ほう に ある 「 ボ タン の 種類 ] を 「OK] に し て くだ さい 。 つ いで に 、 ボ タン に 表示 
する タイ トル も 「 決 定 ] な ど 分 か りや すい も の に し て お きま し ょ う 。 
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プロ パティー: CommandButton 


「 ボ タン の 種類 ]」 を 「OK」 に する 


これ で 「OK| ボ タン が 追加 され た の で 、 以 下 の マ クロ で ダイ アロ グ を 表示 し 、 
「Execute()」 が 返す 値 を 見 て み ま す 。 


Sub Main 
Dim dlg As Object 
DialogLibrartes . hoadhibrary ("Standard" ) 
dl1g = CreateUnoDialog(DialogLibraries .Standard.D1alog1 ) 
Jegmox d1g.Execue( ) 


End Sub 」 
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「OK] ボ タン を クリ ッ ク す る と 、 ダ イア ログ が 閉じ られ て 「1」 が 表示 され 、 ダ 
イア ログ の 「X」 ボ タン な ど で ダ イア ログ を 閉じ る と 「0」 が 表示 され まし た ね 。 


CommandButton1 | 


終了 方 法 に よっ て 、 返 り 値 が 変わ る 様子 が 確認 で きる 


な お 、「 ダ イア ログ ・ エ ディ タ 」 で ボタ ン の 種類 を 設定 する 際 、「 キ ャ ン セ ル 」| に 
する と 、 ク リッ ク し た と き に キャ ン セ ル し て ダイ アロ グ を 閉じ る (「Execute( )」 
が 「0」 を 返す ) ボタ ン を 追加 する こと も で きま す 。 
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la-e イベ ント ・ ハ ンド ラ 


「O0o] の マク ロ で は 、「 イ ベン ト 」 と いう 仕組 み を 使う こと が で きま す 。 

「 イ ベン ト 」 と は 、 ア プリ ケー ショ ン 上 で 文書 が 開か れ た り ボ タン が クリ ッ ク 
され る と いっ た 、 特 定 の 状況 が 発生 する こと で す 。 

マク ロ で は 、 こ うし た 「 イ ベン ト 」 が 起き た と き に 実行 する 「 イ ベン ト 処 理 サ 
ブル ー チ ン 」( イ ベン ト ・ ハ ンド ラ ) を 設定 し 、『 ボ タン が クリ ッ ク さ れ た ら こ の 
処理 を 行なう ] と いっ た 、 イ ベン ト に 応じ た 処理 を 行なう こと が で きま す 。 


国 「 イ ベン ト ・ ハ ンド ラ 」 の 設定 


前 項 で 試し て みた ダイ アロ グ で も 、GUI 関 連 な ど で さま ざま な イベ ント が 発 
生 し ます 。 こ こ で は 、 マ クロ か ら ダ イア ログ の イベ ント を 処理 し て みて 、「 イ ベン 
ト ・ ハ ンド ラ ]」 を 設定 する 基本 的 な 流れ を 確認 し て み ま し ょ う 。 


玉 

まず 、 前 項 と 同様 に ダイ アロ グ 「Dialog1] を 作り 、「 ダ イア ログ ・ エ ディ タ ] 
で テキ スト ・ ボ ックス [testField | と ボタ ン 「testButton| を 配置 し て くだ さい 。 
[testButton」 の タイ トル は 、 分 か りや すい よう 「 テ スト 」 と し て お きま し ょ う 。 


ダイ アロ グ の 設定 


[3-6] イベ ント ・ ハ ンド ラ 


ERHRREEZRTORHTT3=32TFPPPICET2fCOEREREZSEPT ア PRERHraec 下 = デーaasswiarEerrcnroscriieeamaarisacresasazfesrabsrTnts 


炊 に 、「 イ ベン ト ・ ハ ンド ラ 」 の サブ ルー チン も 含め た マク ロ を 作り ます 。 

今回 は 、「 イ ベン ト ・ ハ ンド ラ 」 と 「Main」 と いう 2 つの 関数 で ダイ アロ グ を 処 
理 し た い の で 、 ダ イア ログ を 参照 する 変数 を サブ ルー チン の | 外 」 で 宣言 し 、 ど 
ちら の サブ ルー チン で も 参照 可能 な 「 グロ ー バ ル 変 数 ] に し ます 。 


※ 


イベ ント ・ ハ ンド ラ [EventTest] で は 、 ダ イア ログ の [testText」 の [Text| を 
「 イ ベン ト ・ テ スト ]」 に 設定 する よう に し て み ま し ょ う 。 


マク ロ 編 集 画面 で 、 以 下 の マ クロ を 入力 し て くだ さい 。 


Dim dlg As Object 


Sub Main 


Sub 


Dia1ogiibraries . LoadLibrary ( "Standard" ) 


dlg = CreateUnoDialog(DialogLibraries .Standard .Dia1og1 ) 


d19. ExeCu モ @( ) 


EvenETe8 七 


Dim F]1dG Ag Objeot 


1d = dlg.GetContro1 ("testEFie1d" ) 


E1d_Text = キイ ベン ト ・ テ スト 


End Sub 
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この 状態 で 実行 する と 、 ダ イア ログ が 出 て きま す が 、 ま だ イベ ント の 設定 を 
行なっ て いな い の で 、 ボ タン を クリ ッ ク し て も 何 も 起 きま せん 。 


※ 
で は 、 実 際 に 「 ダ イア ログ ・ エ ディ タ 」 で ボタ ン 「testButton」 の イベ ント ・ ハ 
ンド ラ に [EventTest」 を 割り 当て まし ょ う 。 
ボタ ン の 「 プ ロバ パテ ィ 設定] 画面 で で イベ ント 」 タ ブ を 選び 、「 イ ベン ト の 設定 ] 
ペー ジ に 移っ て くだ さい 。 


プロ バテ ディ ー: CommandButton 還 


ステ ー タ ス を 変更 し た 時 .…… | 

フォ ー カ ス を 得 た 時 .……… | 1 
フォ ー カ ス を 失っ た 時 .……… eo 
キー を 押し た 時 .……。………… | 』 
キー を 苑 し た 時 。。。。eee に = 
マウ ス を 内 に 入れ た 時 .……… 証 較 
キー を 押し マウ ス 操 作 する 時 .…| 
マウ スズ 提 作 時 .…………………… | 

マウ スポ タン を 押し た 時 . 


「 イ ベン ト の 設定 」 ペ ー ジ 


「 作 動 時 ]「 ステ ー タ ス を 変更 し た 時 ] な ど 、 多 数 の イベ ント が 列 苦 さ れ て いる 
の で 、「 作 動 時 ] の 設定 ボタ ン (…) を クリ ッ ク し ます 。 

する と 、「 イ ベン ト に 割り 当て る アク ショ ン 」 の 設定 画面 に な る の で 、「 マクロ] 
を 選び 、 先 ほど 入力 し た マク ロ を 選択 し ます 。 
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マク ロ を 選択 する と 、「 マ クロ 名 |] に サブ ルー チン の 一 覧 (「Main」 と 
「EventTest」) が 出 て くる の で 、「EventTest」 を 選ん で くだ さい 。 


2 


項目 の ステ ー タ ス の 変更 
フォ ー カ ス を 得 た 時 

フォ ー カ ス を 和 失っ つた 時 

」 キー を 押し た 時 
キー が 柳 れ た 時 

| マウ ス を 内 に 入れ た と き 
| キー を 押し マウ ス を 操作 する と き 
| マウ ス の 操作 時 

| マウ ス ボ タ ン を 押し た と き 
| マウ スポ ボタ ン を 部 し た 時 
| マウ ス を 外 に 出し た 時 


割り 当て : 


田 計 ) OpenOffice.org の マク ロ 
) 紅 毎 還 1 


マク ロ の き R 較 閥 ES 
必要 な マク ロ を 含む ライ ブラ リ を 起 択 し て 、『 マ クロ 名 」 で マク ロ を 選択 し ます 
ライ ブラ リ (8 ぬ ) マク ロ 名 (8) 
[ 軸 eg マイ マク ロ w 


oe 


= 


SE 


「 イ ベン ト に 割り 当て る アク ショ ン 」 の 設定 画面 
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「OK] ボ タン を クリ ッ ク し て イベ ント の 設定 を 終え たら 、 マ クロ を 実行 し て 
み ま し ょ う 。 


こん ど は 、 ボ タン を クリ ッ ク す る と 、「 作 動 時 ] イ ベン ト 発 生 時 に 実行 する よ 
う 設定 し て お いた サブ ルー チン [TestEvent( )」 が 実行 され 、 テ キス ト ・ ボ ッ ク 
ス に 「 イ ベン ト テ スト ]」 の 文字 列 が 入る は ず で す 。 


イベ ント テス ト 


テキ スト ・ ボ ックス に 文字 列 が 入力 され る 


「 デ ー タ ベー ス ・ シ ステ ム 」 や 「00o の 保存 ファ イル | な ど 、「XML」 を 利用 す 
る 機会 が 増え て きま し た 。 

「O0o」 の API に は XML に 関す る 機能 も 用 意 さ きれ て いる の で 、 マ クロ か ら こ れ 
ら の API を 呼び 出す こと で 、XML フ ァイル で 革 積 され て いる デー タ を 活用 で き 
る よう に な り ま す 。 


く ML フ ァイル を 読み 込み 、 内 容 を 取得 する 


まず は 試し に 、XML フ ァイル を 読み 込ん で 、 内 容 を 読み 取っ て み ま し ょ う 。 


XML ファ イル を 扱う 際 は 、「DOM」 と いう XML の 文書 構造 に アク セス する 仕 
組み が 利用 され ます 。 


[3-7] XML の 処理 


IDOM」 に は 、XML の 「 要 素 を 検索 ] や 「 内 容 や 属性 の 値 を 取得 ] な ど 、XML 
を 処理 する た め の 機能 が 一 通り 用 意 さ れ て いる の で 、 何 ら か の 手段 で 処理 対象 
XML ファ イル に アク セス で きる 「DOM オ ブ ジ ェクト 」( あ る い は イン ター フェ 
イス ) を 取得 すれ ば 、 後 は その 「DOM」 を 通し て XML を 処理 で きる わけ で す 。 


「DOM」 は 、「O0o] だけ で な く 、「JavaScript」 や 「Javal「 各 種 XML ラ イブ ラ 
リ 」 で も 用 意 さ れ て いる の で 、 す で に 他 の 環境 で [DOM」 を 利用 し た こと が あ 
る 、 と いう 人 な ら 、XML か ら 「DOM] を 得る 方 法 さ ぇ 把握 すれ ば 、 す ぐに 「00o」 
の マク ロ で も XML を 活用 で きる で し ょ う 。 


還 [DOM」 の 取得 


「OO0o」 の マク ロ で は 、 こ の Dom を 「DocumentBuilde」 サ ービス か ら 取 得 で 
きま す 。 

まず 、「DocumentBuilde] サ ービス を 作り 、 続 いて 「parseURI( )」 に XML の 
場所 を 渡せ ば 、「DOM の イン ター フェ イス ]([「XDocument」 イ ンタ ー フ ェ イ ス ) 
を も つ XML の 文書 オブ ジェ クト を 取得 で きま す 。 


た と えば 、「qd:\test.xmll を 扱う DOM は 、 


Dui1der = CreateUnoService( "com.Sun .Star .xml .dom.DocumentBu11der" ) 


doc = bui1der.parseURT ("Fi1e: ///d:/test.xm1" ) 
の よう に し て 取得 で きま す 。 


後 は 、 取 得 し た オブ ジェ クト に 対し て 、「XDocument] イ ンタ ー フ ェ イ ス の 機 
能 を 使っ て アク セス し な が ら 情 報 を 取得 し て いく わけ で す 。 


今回 は 、 以 下 の よ うな XML を 読み 込ん で み ま し ょ う 。 
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<?xml vers1on='1.0'?> 


<1Eem] 1 5 ヒ > 


、。 <1tem> 


<name> 商 品 1</name> 


<DF1ioe>1000</D エ 1C@> 


</1tem> 


<1Eem> 


<name> 商 品 2</name> 


<Drioe>2000</D エ 1 で C@> 


で /1tem> 


< く 1tem> 


<name> 商 品 3</name> 


<DFioCe>3000</D エ エ C@> 


</1temz 


</1Eem1liS ヒ > 


この XML を 「d:test.xml」 に 配置 し 、|item」 の 情報 を DOM か ら 取 得 し て み 
ます (保存 時 に 文字 コー ド を 指定 で きる エディ タ で 、「UTEF-8N」 や 「UTF-8」 で 
保存 し て 、 試 し て みて くだ さい )。 


[test.xml] を 配置 し た ら 、 そ の 場所 を 「parseURI( )」 の 引数 に 渡し て 、 以 下 
の マク ロ を 実行 し て みて くだ さい 。 


Sub Main 


Dim 


bu11der As ObJjeo 
doC As ObJjeo も 


1temmS AS ObJeo セ 


ュ ト emNum As Long 


1temName Ag モエ ュ ng 


1 し ernPr1Ce AS 8 モ ェ ing 
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。 bui1der = createUnoService ("com . Sun . Ear . ml .dom.DocumenE 


Builder") 


mm オア シェ ント 取得 
doc = bui1qder .parseURT ("File:///d:/test.xm1") 


) xr の item 要 素 の 集合 を 取得 


items = doc.getElementsByTagName ("1Eem' ) 


! item の 数 を 取得 


1EemNum = 1Eems.getLength( ) 


各 item の 情報 を 表示 
誠 の EID ヨコ 0 OO 1 も ommNum っ 上 


1itemName = items.1Eem (1) .getElementsByTagName ( "name" ) . 
item( 0 ) ,.getFirsEChi1d ( ) .getNodeVa1ue ( ) 

itemPrioe = items.1tem(1) .geEElementsByTagName ("pr1ce リ ) . 
item( 0 ) .9etLFirsEChi1d ( ) . getNodeVa1ue( ) 

MsdBox 1EemName & ":" & 1EemPrice 


Nex モ 


End Sub 


SOofhCe EQffice 


に 


半 1 | 下 | mmzzom 
| 


実行 結果 
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この マク ロ で は 、XML オ ブ ジ ェクト 「doc」 か ら 、 指 定 の 名 前 を も つ 要 素 を 列 
共 す る 「getElementsByTagName( )」 で |item」 の 集合 を 取得 し 、 各 [item」 の 
「name」 と 「price」 を 表示 する よう に し て み ま し た 。 


ヒコ 
「parseURI( )」 に 指定 する URI は ネッ ト 上 の URL も 指定 で きる の で 、Web サ 
ー バ に 保存 し て ある [XML 文書 ] や [XML デー タ 」 を 返す [Web サ ービス 」 など 
の [XML 文書 ] を 読み 込む こと も で きま す 。 


前 章 ま で で 、「OO0o」 の マク ロ に 関す る 
基本 的 な 部 分 を 一 通り 見 て きま し た 。 

ここ か ら は 実際 の 「OOga 文 書 ] に 組み 
込む マク ロ で 、「0Oo」 の 難 ア プリ ケー シ 
ョ ン の 機能 を 活用 し て み ま し ょ う 。 


第 4 章 マク ロ と アプ リケーション の 連携 


|4-1 | Calc の 表 計 算 シ ー ト の 扱い 方 


表 計算 ソフ ト [Calc」 の 機能 を マク ロ か ら 利 用 し て みる こと に し ます 。 
マク ロ か ら 各 アプ リケーション の 機能 を 利用 する に は 、 ま ず [ ThisComponen 
t 文 ] で ドキ ュ メ ント の オブ ジェ クト を 取得 し ます 。 


この ドキ ュ メ ント に アク セス し 、[Calc」 の 表 計 算 シ ー ト や 「Base」 の デー タ 
ベー ス な ど 、 各 アプ リケーション が も っ て いる 機能 を 利用 する わけ で す 。 


較 マ クロ か ら 「Calc」 の 表 計 算 ド キュ メン ト を 取得 する 
まず は マク ロ で 「 表 計算 ドキ ュ メ ント ] を 取得 し まし ょ う 。 

「Calc」 を 起動 し た ら 、「 マ クロ の 編集 」 画 面 で 以下 の よう な マク ロ を 実行 し 、 
[ThisComponent」 で 取得 する ドキ ュ メ ント で 、 ど ん な イン ター フェ イス や サ 
ービス が サポ ー ト され て いる か 見 て みる こと に し ます 。 

Sub Main 
Dim doc As ObJject 
D1m SerY1oeLi1 5 上 AS ObJec 
Dim num As Long 
Dim 1 As Long 
doc = ThisComponenE 
SerVioeLi5 ヒ ニニ Qoo .9etSupporEeQdServ1oeNames ( ) 


TU ニ UBound ( 86 ら FV も GeE エ 5E) - Bound (servreeLis も E) + 1 


、 info = "サー ビス 総数 :* g num gs Chr(10) 


[4-1] Calc の 表 計 算 シ ー ト の 扱い 方 


ROHSPH に ap 


テ ror 1 = LBound (serviceLiis) to UBound (serviceList) 


| info = info g servioceList(1) & Chr(10) 


、 Ner セ 
MsgBox info 
MsgBox doc .Db9g_SuDppo て も edTnterFaACe8 


End Sub 


| Supported interfaces by object "ThisConnponent' 
corm.sun.Star.container.XChild 
comm.sun.star.document.XDocuntenttnfoSupplier 
comn-sun.star.document.XDocumentPropertiesSupplier 昌 
com.sun:.star,.docurnent.XEventBroadcaster 

| comm.sun.star.land.XEventListener 
comm.sun.5tar.docunnent.XEventsSupplier 
comn.Sun.star.docurmnent.XErnbeddedScripts 
con.sun.star.docurment.XScriptInvocationContexk 
Con.sun、star.ffarmne.XModel2 
corm.Sun.Star.frarme.XModel 


corn.Sur.Star.land.XComponeht 
STTEE1 


Con.sun.Star.sheet.SpreadsheetDocunnert 
conn.sun.star:sheet.SpreadsheetDocumentSettings 


し 


開 


「Calc]」 で サポ ー ト され て いる サー ビス と イン ター フェ イス 


実行 し て みる と 、( 自 分 自身 の 他 に ) 
com.sun.star.sheet.SpreadsheetDocument 


com.sun.star.sheet.SpreadsheetDocumentSettings 
と いう 2 つの サー ビス が あり 、 そ れ 以 外 に も 多数 の イン ター フェ イス を も っ て い 


レク ショ ン 」 の 取得 


「SpreadsheetDocument] サ ービス の 「XSpreadsheetDocument」 イ ンタ ー 
フェ イス に は 、 ド キュ メン ト 内 の シー ト を まとめ た 「 コ レク ショ ン 」( 集 合 ) を 取得 
する 「getSheets( )」 メソッド が ある の で 、 と りあ え ず これ で ドキ ュ メ ント に 含 
まれ る シー ト の コレ クシ ョ ン を 取得 し て み ま し ょ う 。 
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シー ト の コレ クシ ョ ン を 取得 する と 、 マ クロ 側 で [( )] の 中 に 「0」 か ら 始 まる 
「 イ ン デ ックス 」 や 「 シ ー ト の 名 前 ] を 入れ て 、 コ レク ショ ン 内 の シー ト に アク セ 
ス で きま す 。 

た と えば 、 ド キュ メン ト に 含ま れる 最初 の シー ト を 取得 する な ら 、 
INTOUNUGHeHE は に し こら っ (D) 
と する わけ で す 。 こ れ は 、 

ThisComponent . SheeEs (0 ) 


と 書く こと も で きま す 。 


以下 の マク ロ を 実行 し て みる と 、 ド キュ メン ト に 含ま れる 最初 の シー ト を 取 
得 し て 、 そ の 名 前 を 表示 で きま す 。 


Sub Main 
Dim FirstSheet As Object 
firstSheet = ThisComponent . Sheets ( 0 ) 
MSgBox FirsEtSheet .Name 


nd Sub 


最初 の シー ト の シー ト 名 が 表示 され る 


[4-1] Calc の 表 計 算 シ ー ト の 扱い 方 


玉 
また 、「Sheets」 に は 、 あ る 名 前 の シー ト が ある か を 調べ る 「hasByName( )」 
メソ ッ ド や 、 シ ー ト の コレ クシ ョ ン に 新しい シー ト を 挿入 (作成 ) す る 「insertNew 
ByName( )」、 指 定 し た 名 前 の シー ト を 削除 する 「removeByName( )」 と いっ 
た メソ ッ ド も あり ます 。 


「insertNewByName( )」 の 引数 に は 、 作 る シー ト の 「 名前] と [位置]」([0] か 
ら は じ ま る イン デック ス 。 指 定 イ ン デ ックス の 前 に 挿入 され る ) を 、 他 の メソ ッ 
ド の 引数 に は 、 シ ー ト の 「 名 前 」 を 指定 し ます 。 

た だ し 、「insertNewByName( )]」 で シー ト を 作る 場合 は 、 す で に 同名 の シー 
ト が ある と エラ ー に な る の で 、 作 る 前 に 同じ 名 前 の シー ト が な いか 確認 する よ 
うし ましょ うう 。 


た と えば 、 新 し い シ ー ト を 「testSheet41」 と いう 名 前 で 作る な ら 、 
gub Main 


Dim SheetS As ObJeot 


Dim sheeEName AS 8S モ ring 

SheeEName = "て testSheet41" 

8heets = ThisComponent . Sheets 

エ E sheetg .hasByName (SheeEName) 中 hen 
8heeEes . removeByName (SheeEName ) 

End エモ 


SheeCs . inSerENewByName (sheetName, 0) 


and sub 
の よう に し ます 。 
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指定 し た 新しい シー ト が 挿入 され る 


* 
個々 の シー ト に つい て も 、 ど ん な イン ター フェ イス を も っ て いる か 見 て み ま 
し まう 。 


MsgBox FirstSheet .Name 

の 部 分 を 、 

MsgBox EirstSheet .Dbg_SupportedTnterfaces 

と し て 実行 し て みて くだ さい 。 シ ー ト も 非常 に 多 機能 で 、 た くさ ん の イン ター フ 
ェ イ ス を も っ て いる みた いで すね 。 


5office 


Supported interfaces by object "ScTableSheetQOB]": 
Corm.sun.star.、beans.XPropertySet 
comm.sun.star.beans.XMultiPropertyBet 
CO.sun.5tar.heans.XPropertyState 
て Cohn.sun.star.sheet.XSheetOperation 
COPn.Sun.star.chart.XChartData 上 rray 

Cohn.sun.5tar.chart.XChartData 
Corm.Sun.star.uHi.XIndent 
com.sun.5tar.sheet.XCelIRandesQuery 
て on.sun.5tar.sheet.XForrnuladuery 
CO.sun.star.uHi|.XRehlaceable 

Corm.sUn.star.uHI.XSearchahle 
どい ma で lim と キュ テ ュ 下 im ロム ュー ュ ニ キュ 

シー ト が も っ て いる イン ター フェ イス の 一 部 
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シー ト を 取得 し た ら 、「XCelIRange」 イ ンタ ー フ ェ イ ス で セル に アク セス で 
きま す 。 

「XCellRange]l は 、 シ ー ト 中 の 一 定 の 範囲 の セル を まとめ た も の で 、 
「getCellByPosition( )」 で 位置 を 指定 する と 、 そ の 位置 に ある セル を 取得 で き 
ます 。 

「getCellByPosition( )」 の 位置 指定 は 、 最 初 の 引数 に [AB,C] と いっ た 「 列 」 
( 横 方 向 ) の 位置 を 、2 番 目 の 引数 に 「 行 ( 縦 方 向 ) を 、 い ずれ も 「0」 か ら 始 まる イ 
ン デ ックス で 指定 し ます 。 


ヒ ゴ 


試し に 、 シ ー ト の 左上 端 [A1] セル に 適当 な 数 字 を 入れ て か ら 、 以 下 の マ クロ 
を 実行 し て みて くだ さい 。 


Sub Main 


MsgBox ThisComponent .Sheets (0 ) .getCe11ByEPosition(0, 0).Value 
End Sub 


実行 結果 


「getCellByPosition( )」 で 返さ れる セル の 「Dbg_SupportedInterfaces」 を 
見 る と 、 セ ル も 実に た くさ ん の イン ター フェ イス に アク セス で きる よう で す 。 


ピコ 

以上 で 、「Cale ド キュ メン ト |]|「 ド キュ メン ト に ある シー ト の コレ クシ ョ ン ] 
[個々 え の シ ー ト 」「 セ ル | と いっ た [Calc の 各 要 素 ]( オ ブ ジ ェクト ) に マク ロ か ら 
アク セス する 方 法 を 一 通り 確認 で きま し た 。 
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人 48| ニセ ル の 扱 方 


セル の 扱い に つい て 、 も う 少 し 詳し く 試 し て み ま し ょ う 。 

4-1 節 で は 、「getCellByPosition( )」 で 指定 セル を 取得 し 、 そ の [Value」 プロ 
パテ ィ を 参照 し て み ま し た が 、 他 に も さま ざま な 「 プ ロ パ ティ 」 や 「 メソッド] に 
アク セス で きま す 。 


ここ で は 、 セ ル の | 背景] や |「 表示 位置 ](| 右寄せ 」「 中 央 」 [左寄せ]) と いっ た 
表示 設定 を 変え た て み ま し ょ う 。 セ ル に は 、 セ ル の 「 プロパ ティ 」 を まとめ て 扱う 
「com.sun.star.table.CellProperties」 サ ービス が 含ま れ て いる の で 、 こ の サ 
ービス の プロ パテ ィ を 変更 し て み ま す 。 


圏 背景 色 の 変更 

最初 に 、「 セル の 背景 色 ] を 変え た て み ま し ょ う 。 

セル の 背景 色 は 、「CellProperties」 の 「 CellBackColor」 プ ロ パ ティ で 設定 
で き ます 。 

この プロ パテ ィ に 設定 する 値 は 、 最 初 の 2 桁 が 「 赤 」、 次 の 2 桁 が [ 緑 」、 最 後 の 2 
桁 が 「 赤 」 の 、 合 計 6 桁 の 16 進 数 で す 。 

た と えば 、 以 下 の よ うに する と 、 最 初 の シー ト の 「A1」 セル の 背景 を 赤く する 
こと が で きま す 。 マ クロ を 実行 し た ら 、 ア プリ ケー ショ ン の ウイ ンド ウ を 表示 し 
て 実際 に [A1」 セル が 赤く な っ て いる の を 確認 し まし ょ う 。 
gub Ma1n 


_ Dim EesECe11 As ObJec も 


ー LestCe11 = ThisComponent .Sheets (0) .getCel1ByEBosition(0, 0) 


[4-2] セル の 扱い 方 


tesECe11 .Ce11BackCo1or = &HFF0000 


指定 の セル の 背景 色 が 変更 され る 
続い て 、 
testCe11 .Ce11BackCo1or = &HEEFO0000 
の 部 分 を 、 


李 @SBe よ GOGHUBaGIKGOEG 
と し て 青く し て みた り 、 
testCe1l1 .Ce11BackColor = &HOOFE00 

と し て 緑 に し て みた り し て 、16 進 数 6 桁 に よる 色 の 指定 を 試し て み ま し ょ う 。 


昌 


&HO0000FF 


画 文字 列 の 表示 位置 を 変更 する 


続い て 、 セ ル の 中 で |「 文字 列 を セン タリ ング 」 し て み ま す 。 
セル 内 部 の セン タリ ング は 、[「CellProperties] に ある 「HoriJustify」( 横 方 
向 ) 、「VertJustify」( 縦 方 向 と いう 2 つの プロ パテ ィ で 設定 可能 で す 。 


設定 可能 な 値 は 、「HoriJustify」 が 「com.sun.star.table.CellHoriJustify」 で 
定義 され て いる 、 
com.sun.star.table.CellHoriJustify.STANDARD …… デフ ォ ル ト 
com.sun.star.table.CellHoriJustify._LEFT …… ii 左寄せ 
com.sun.star.table.CellHoriJustify.CENTER_ ……… 中 央 寄せ 
com.sun-.star.table.CellHoriJustify.RIGHT _…… ひ tt…… 右寄せ 
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[VertJustify」 が 「com.sun.star.table.CellVertJustify」 で 定義 され て いる 、 


com.sun.star.table.CelIVertJustify.STANDARD …… デフ ォ ル ト 
com.sun.star.table.CellVertJustify._TOP… の Cool 上 寄せ 
com.sun.star.table.CellIVertJustify.CENTER ……… 中 央 寄せ 
com.sun.star.table.CelIVertJustify.BOTTOM_ ……… 下 寄せ 


と な っ て いま す 。 


た と えば 、「A1」 セ ル を 「 横 方 向 中 央 寄せ ] に する な ら 、 


Sub Main 
Dim LestECe1] As ObJjeo 
testCe11 = ThisComponent .Sheets (0) .getCe11ByPosition(0, 0) 


testCe1 1 .Hor1Justify = com.sun.star.table.Cel1Hor1JustifEy.CENTER 


nd Sub 


と する わけ で す 。 


「A1] セル に 何 か 文字 列 を 入れ た 状態 で マク ロ を 実行 し 、 実 際 に 表示 が 変わ 
る こと を 確認 し て み ま し ょ う 。 


国 肖 写 


セル 内 の デー タ が 「 横 方 向 中 央 寄せ 」 に 変わ る 


[4-2] セル の 扱い 方 


「CellProperties」 に 続い て 、「CharacterProperties」| で セル の 「 文字 の 属 
性 ] を 変え た て み ま し ょ う 。 

「CharacterProperties」 に は 、 文 字 の 「 色 ] や 「 サ イズ ] 「 下 線 ] な ど 各 種 属性 
を 表わす プロ パテ ィ が ある の で 、 そ れ ら を 変更 する こと で 、 セ ル の 文字 に 変化 を 
与え る こと が で きま す 。 


た と えば 、 文 字 の 「 色 ] を 変え る な ら 、 以 下 の よ うに 「CharColor」 を 変更 し ま 
す 。 多 の 指定 は 、 セ ル の 背景 同様 に 、RGB そ れ ぞ れ 2 桁 で 、 計 6 桁 の 16 進 数 で す 。 


testCe11 .CharColor = &H808080 

文字 列 に 「 下 線 ]( ア ンダ ー ラ イン ) を 引く に は 、「CharUnderline」 に 「com 
sun.star.awt.FontUnderline」 で 定義 され て いる 定数 を 指定 し ます 。 

通常 は 、「SINGLE」 (実線 ) や [DOTTED」 (点線 ) を 使う こと に な る で し ょ う 。 

玉 

以下 の マク ロ を 実行 する と 、「B2] セル の 背景 を [水色 ] に し 、 文 字 の 色 を 「 赤 ] 
に し て 「 下線] が 付く よう に な り ま す 。 
Sub Main 


Dim EesECe] 1] AS Ob]jec 


| tasteell ョ ThisComponent .Sheets (0) .getCe11ByPosition (1, 1) | 


。 testCe11 .Ce11BackCo1or = &HOOFEFFE 


LCe11 .CharCo1or = sgHEF0000 


stCe11 .CharUnder] ine ェ COm. Sun. SLar.awt.FonLUnderline.8TNG 
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nd gub 
iT T 
sa C A B 人 
凶 』 
3 ABCD | オズ 2 ABCD 
3 3 
衝 生 


セル の 「 背 景色 」 と 「 属 性 ] が 、 そ れ ぞ れ 変 更 さ れる 


バー ト 全 体 に 変更 を か ける こと も 可能 

これ まで 見 て きた [CellProperties」 や | CharacterProperties| は 、 セ ル の 集 
合 で ある 「CellRange」 に 対し て も 有効 で す 。 

「Sheets(0)」 で 取得 し た シー ト は 、( シ ー ト の セル 全体 を 保持 する ) 
[CellRange] と し て も 扱え る の で 、 以 下 の よ うに する と 、 シ ー ト 全体 の | セル ] 
や 「 文 字 の 属性 ] を 変更 で きま す 。 

Sub Main 
Dim teSECe11s As ObJeo 
testCe11ls = ThisComponert . SheeSs ( 0 ) 
も testCe11s .Cel1BaokCo1or = &HOOFFEFF 
testCe11s .CharColoF = &HEF0000 


testCel1g.CharUnder]ine = com.Sun.8tar .awt .FonEUnderline.SINGLE 


吾 nd Sub 


[4-2] セル の 扱い 方 


| ファ イル (E) 本 6 半 ぁ 較 esL( つ 6 2 ョ タ (D ーーーーー 


ー ト 17 4| 標 半 


| d] < [All 、testsheet+ EE と に sl Mod 因 | 


| 禁 * | トー 氏 ーー 


ー ト 全体 の 情報 を 変更 する こと も で きる 
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|4-3| Calc の シー ト に GUI 部 品 を 配置 


第 3 章 で ダイ アロ グ に ボタ ン を 追加 し 、 ボ タン が クリ ッ ク さ れ た と き に 実行 す 
る イベ ント ・ ハ ンド ラ の マク ロ を 作っ て み ま し た 。 

[Calcl の シー ト に も 、 同 様 に ボタ ン な どの GUI 部 品 を 配置 し し イベント に 応 
じ て 実 行 する マク ロ を 設定 する こと が 可能 で す 。 


ー ト に GUI 部 品 を 配置 する 


シー ト に GUI 部 品 を 配置 する に は 、 フ ォ ー ム ・ コ ント ロー ル の ツー ル バ ー を 
使い ます 。「 表 示 」 メ ニュ ー の 「 ツー ル バ ー」 で 、「 フ ォ ー ム コン トロ ー ル 」 に チェ 
ッ ク を 入れ て 表示 させ て くだ さい 。 


稚 無題 1 - OpenOffios.org Calc 


ファ イル (E) 舞 集 (E) 還 入 (0 書式 (O) ツー ル ) デー タ (D) ウィ ンド ウ (%) ヘルプ) 
呈 * 條 1 レン で 9 トマ うこ: 介 %.4 下 ジ 則 す 


Bm 改 ペ メー ジブ プレ ビュ ー(P 
四 人 |s p ゴ シッ ク EE BT EEE し 
0 E 8 4 に 3D 設定 ( ぬ ) ト 
数 式 バ ー() セル を 反 入 (B) 


ステ ー タ スバ ー(B) ツー ル (D) 

な ス デキ スト の 書式 設定 (E) 
行 と 列 の 番号 (0) ら 
値 の 維 調 表示 (H) Ctr+FB8 


境 | 國 デー タ ソ ー ス (D) 1 


フォ ー ム の ナビ ゲー ショ ン (K) 


「 フ ォ ー ム コン トロール 」 を 表示 


ツー ル バ ー が 表示 され た ら 、 ま ず 、| デザ イン モー ド 」 が オン に な っ て いる ( ツ 
ー ル バー の GUI 部 品 が 選択 で きる ) 状態 に な っ て いる こと を 確認 し ます 。 


F プ *ー@5 


「 デ ザイ ン モ ー ド 」 は 、 オ ン で GU 部 品 の 編集 を し 、 オ フ で 実際 の 動作 確認 


[4-3] Calc の シー ト に GUI 部 品 を 配置 


そし て 、 後 は ダイ アロ グ の と き と 同 様 に 、「 ボ タン | を 選ん で ドラ ッ グ し て 配置 
し し よう 。 


ボタ ン が 配置 され た 


画 ボ タン 用 の マク ロ を 作る 
ボタ ン を 配置 し た ら 、 ボ タン を クリ ッ ク す る と き に 実行 する テス ト 用 の マク 
ロ ・ サ ブル ー チ ン を 定義 し ます 。 


マク ロ の 編集 画面 で 、 以 下 の よ うな テス ト ・ サ ブル ー チ ン を 定義 し て みて く 
だ さい 。 
Sub btnTest 
MsgBox "ボタ ンク リッ ク テ ス ト * 


End Sub 


園 属性 の 設定 
続い て 、 シ ー ト 上 の ボタ ン を 左 ク リッ ク し 、「 コ ント ロー ル ] で 属性 の 設定 に 


入り ます 。 
と こと で は 、 ダ イア ログ の と き と 同 じ く 、「 イ ベン ト 」 の 「 作 動 時 ] に 「 マ クロ 」 の 


割り 当て を 行ない 、 先 ほど 定義 し た 「btnTest」 を 指定 し て くだ さい 。 


[OK| を クリ ッ ク し て 設定 を 完了 し 、「 コ ント ロー ル の 属性 」 設 定 ダ イア ログ 
を 閉じ た ら 、「 デ ザイ ン モ ー ド | を オフ に し て 、 ボ タン を クリ ッ ク し て み ま し ょ う 。 
先ほど 割り 当て た マク ロ が 実行 され て 、 メ ッ セ ー ジ が 表示 され た と 思い ます 。 
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5GFCE 


ボタ ン を クリ ッ ク す る と 、 メ ッ セ ー ジ が 表示 され る 


トコ 
今回 は 、 ボ タン の 作動 時 の イベ ント 設定 を 試し て み ま し た が 、GUI 部 品 の イ 
ベン ト に は 、 他 に も 「 フ ォ ー カ ス 移 動 時 ] や 「 マ ウス 関連 ] の イベ ント な ど 、 さ ま 
ざま な 種類 の イベ ント が あり ます 。 
マウ ス の 動き に 応じ て 表示 を 変え て みた り 、 フ ォ ー カ ス 移 動 時 に 自動 的 に 内 
容 を 更新 し た り と 、 イ ベン ト に 応じ て マク ロ の 処理 を 実装 する こと で 、 表 計算 
シー ト を 高 機能 化し て みて くだ さい 。 


|4-4| Calc の シー ト に 図形 を 配置 


|「Calc」 の シー ト に は 、「DrawPage」 と いう 各種 の 図形 を 配置 する た め の 領 
域 が あり ます 。「 図 形 オ ブ ジ ェクト ]| を 生成 し 、「DrawPage」 に 置く こと で 、 
[Calc」 の シー ト に 、 各 種 の 図形 を 表示 で きる わけ で す 。 


画図 形 の 配置 と 、「 位 置 」「 大 き さ 」 の 設定 


シー ト の 「DrawPage」 に 図形 を 配置 する に は 、 以 下 の よ うに し ます 。 
[1]「createInstance」 で [図形 オブ ジェ クト 」 を 生成 。 
[2]「 図形 オブ ジェ クト 」 の | 位置 」「 大 き さ 」「 色 ]」 な ど を 設定 。 
[31 シ ー ト の 「 DrawPage」 に 「 図形 オ ブ ジ ェクト 」 を 追加 。 


IDrawPage」 に 配置 する 図形 は 、「Shape」 と 呼ば れ 、「com.sun.star.drawing」 
以下 に まとめ られ て いま す 。 


[4-4] Calc の シー ト に 図形 を 配置 


実際 に オブ ジェ クト を 作る 際 に は 、 ド キュ メン ト の [createlInstance」 に 作 
り た い 「Shape」 の 「 名 前 ] を 渡す と 「 オ ブ ジ ェクト | が 作ら れる の で 、[Object 型 ] 
変数 に 格納 し まし ょ う 。 


ネ 


た と えば 、 ド キュ メン ト の 最初 の シー ト の 「DrawPage」 に 、「 長 方 形 」 
(RectangleShape) を 追加 する に は 、 以 下 の よ うに し ます 。 


Sub Main 


Dim ob]Shape As Object 
Dim ptShape As New comm.Sun . SEar .awE . Poin 


Dim sShape Ag New oom.Sun . Star .awt .S1ze 


ob]jShape = ThisComponent . createTnstanoe ( " Com . Surl . SEar . 


drawing.ReoLangleShape" ) 


ptShape .X 


H 
〇 G 


ptShape .Y 


上 
ee】 


SShape .Width = 5000 
SShape .Height = 5000 


ob] Shape . SB ほら EPos1 ヒ 上 ion (DESha で や ら ) 


ob] Shape . SetSi ze (SShape ) 


ThisComponent . Sheets (0 ) .DrawPage . Add (obJShape ) 


End Sub 
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正方 形 が 配置 され る 


ヒコ 
[位置 ] や 「 大 き さ 」 の 設定 は 、「Point」「Size] と いう オブ ジェ クト を 作っ て 
(New) お いて 値 を 設定 し 、「Shape」 に 渡す 形 で 行ない ます 。 
[位置 ] を 設定 する 「Point」 の 「X」[Y]、「 大 きき 」 を 設定 する [Size」 の 「Width」 
「Height] と も に 、 単 位 は 「1/1000mm」 で す 。 


この 例 で は 、「Width] (横幅 ) 、「 Height」 (高き) と も 「5000] な の で 、 画 面 上 で 
は 5cm の 大 き さ を も つつ 正 方 形 に な り ま す 。 
(あく まで も 理論 上 の 大 き さ で あり 、 正 確 に その 大 き さ に な ら な い 場 合 も ある か 
も し れ ま せん ) 。 


「Shape」 を 作っ て 、 各 種 属性 を 設定 し た ら 、 シ ー ト の 「DrawPage」 で 
[DrawPage」 を 取得 し 、「Add] メソ ッ ド で [Shape」 を 追加 し ます 。 


画 「 線 」「 塗 り 潰し 」 の 設定 


「Shape」 の 配置 と 、「 位 置 ]|「 大 き さ 」 の 設定 が で きる よう に な っ た の で 、 続 い 
て 、「 線 ] の 設定 や 「 塗 り 潰 し ] (背景 ) の 設定 を 変え て み ま し ょ う 。 


「 線 ] の 設定 を 変え る に は 、「Shape」 が も っ て いる 「com.sun.star.drawing. 
LineProperties」 サ ービス の プロ パテ ィ を 変更 し ます 。 


[4-4] Calc の シー ト に 図形 を 配置 


この 「LineProperties」 に は 、 
LineStyle … ス タイ ル 
LineDash … ス タイ ル で ダッ シュ を 指定 し た と き の 設 定 
LineColor … 色 
LineWidth … 太 さ 
と いっ た プロ パテ ィ が あり 、 マ クロ か ら は [| Shape」l の プロ パテ ィ と し て 変更 可 
能 で す 。 


「LineStyle」 に は 、「com.sun.star.drawing.LineStyle」 で 定義 され て いる 、 以 
下 の 定数 を 指定 し ます 。 


NONE ………… 線 な し 
SOLID ……… 実線 
DASH ……… ダッ シュ 


[DASH] の と き に は 、「LineDash」 に [com.sun.star.drawing.LineDash」 構 
造 体 を 設定 する こと で 、 属 性 の 設定 が で きま す 。 

[LineColor」 に は 、「16 進 数 6 桁 ] ま た は 「RGB( ) 関数 で 得 ら れる 色 の 値 ] を 、 
「LineWidth] に は 、「 線 の 太 さ 」 を 「1/100mm」 単 位 で 指定 し ます 。 


※ 
塗り 潰し の 設定 を 変え る に は 、「Shape」 が も っ て いる 「com.sun.star.drawing. 
FillProperties」 サ ービス の プロ パテ ィ を 変更 し ます 。 


この [FillProperties」 に は 、 
FilStyle …… ス タイ ル 
FillColor ……… 色 
な どの プロ パテ ィ が あり ます 。 


[FillStyle」 に は 「com.sun.star.drawing.FilStyle」 で 定義 る され て いる 定数 、 
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NONI 記 sousezs 塗り 潰し な し 
GOLD oon 塗り 潰し 
GRADIENT………… グラ デー ショ シ 
HANORGE hmsnemesos ハッ チ 
BEMAB' ssssssss 画像 


の いずれ か を 指定 し ます 。 


ポ 
試し に 、「2mm の 太 さ で 赤い 線 」| 内 部 を 青く 塗り 潰し た 正方 形 ] を 描い て み 
まし まう 。 
Sub Main 


Dim ob]jShape As Objeot 
Dim ptShape As New com.Sun . SEar . aw . Poin セ も 
Dim sShape Ag New com.Sun.Star .awt .Size 


obJ Shape ThisComponent .createTnstance ("Com . Sun . SLar . 


drawing.RecEangleShape" ) 


ptShape . ヌ 


ptShape .Y 


出 


8S8hape . Width 


6000 


SShape . He 


obJShape . 


ob] Shape . 


obJShape 
_objghape . 


.ineCo1or 


=: 5000 
下 OhE 5000 
SeEPBos1Eion (ptShape ) 


SetSi ze (SShape ) 


RGB(255, 0, 0) 


Linewidth 200 


[4-4] Calc の シー ト に 図形 を 配置 


| _obj8hape . Fi118ty1e = com.sun.star .drawing.Fi11Sty1e g 


objShape.Fi11Color = RGB(0, 0, 255) 


- ThisComponent . Sheets (0 ) .DrawPage . Addl (ob]Shape ) | | 


_End gub 


実行 する と 、 先 の マク ロ で 追加 され た 正方 形 の 右 横 に 、 新 た に 正方 形 が 追加 
され ます 。 


5 
[ 
- 


「 線 」「 塗 り 潰し 」 が 設定 され た 正方 形 が 配置 され る 


田 配 置 し た 図形 を 削除 する 


4 グ ロロ か ら 「Shape」 の 追加 を 試 し て いる と 、 マ クロ で 描い た 図形 が た まっ て 
き て 般 陶 し い の で 、「DrawPage」 の [Shape」 を すべ て 削除 し て み ま し ょ う 。 


「DrawPage」 の 「Shape」 を 削除 する に は 、「remove( )」 メ ソ ッ ド を 使い ます 。 
引数 に は 、 削 除 す る 「Shape」 を 渡す の で 、「DrawPage」 に ある 「Shape」 を 
[DrawPage」 の 「getByIndex( )」 メ ソ ッ ド で 取得 し まし ょ う 。 
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[getByIndex | は 、「DrawPage」 内 の 「Shape」] を 「 イ ン デ ックス ](「0] か ら は 
じ ま る 番号 ) で 指定 し ます が 、 と りあ え ず 、| 今 DrawPage に ある Shape を 一 つ 取 
得する 」 の な ら 、「getByIndex(0)」 で 取得 で きま す 。 


そし て 、 こ うし て 取得 し た 「DrawPage に ある イン デック ス 0 の Shape」 を 、 
[DrawPage」 の 「getCount( )」 で 取得 で きる 「DrawPage」 の [Shape 数 ] が [0」 に 
な る まで 繰り 返せ ば 、「DrawPage に ある Shape を すべ て 削除 ] で きる は ず で す 。 


ネ 


試し に 、 こ れ ま で の マク ロ の 先頭 に 以下 の 処理 を 追加 し て 実行 し て みて くだ 
さい 。 


Dim page As Object 
paqge = ThisComponenE .Shees ( 0 ) .DrawPage 
White page.q9etCount() > 0 


page .Yemove (page .9etByTndex (0 ) ) 
Wend 


これ まで に 実行 し た マク ロ な ど で 作 っ た [Shape」 が 削除 され 、 新 し く 作 っ た 
「Shape」 だ けが 表示 され る よう に な っ た は ず で す 。 


古い 図形 が 削除 され た 


[4-5] Excel の 「VBA マ クロ 」 を 使う 


玉 
今回 は 、 と りあ え ぇ ず [「RectangleShape」 (長方形 ) を 試し て み ま し た が 、 
「Shape」 に は 他 に も 、 


EllipseShape BOOCPPCCCCCLLP 育 円 
GraphicObjectShape … 画 像 
LineShape PCCCCCCCUCCCLCLFLD 線 
TextShape で 文字 列 


な ど 、 さ ま ざ ま な も の が あり ます 。 


4-5 Excel の 「VBA マ クロ 」 を 使う 


「Calc」 で は 、「Microsoft Offce」 の 表 計 算 ソ フト 「Excell の 表 計 算 シ ー ト を 
読み 込む こと が で きま す 。 

エク セル に は 、「Calc」 の 「OpenOffice Basic マ クロ | と 同じ よう な 機能 を も 
つ 「VBA マ クロ 」 が あり 、 最 近 の 「Calc] で は 、Excel の シー ト に ある VBA マ クロ 
も 使え る よう で す 。 


『Excel 上 の VBA で アプ リケーション を 開発 し て き て 、 多 数 の | 資産] を 抱え 
て いる 』「『 普 段 VBA で アプ リケーション を 開発 し て いる 』 と いう 人 に と っ て は 、 
この [Calc」 の VBA 実 行 機能 は な か な か 興味 深い 機能 で し ょ う 。 


クロ を Calc 上 で 動作 させ て みる 


簡単 な VBA マ クロ を 含む エク セル の シー ト を [Calc」 で 開い て みて 、 実 際 に ど 
の 程度 動く の か 見 て み ま し ょ う 。 


まず 、Pxcel 上 で 以下 の VBA マ クロ を 含む シー ト を 作り ます 。 
(手元 に ある の が 「Excel2000] な の で 、 そ れ 以 降 の バー ジョ ン で は 少し 培う 部 分 
が ある か も し れ ま せん )。 
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En test1 () 

| 間 MegBox TELestt' 
eee 2) .Value = 1 

Me Ab 


これ は 、 メ ッ セ ー ジ ・ ボ ックス で [test1 | と いう 文字 列 を 表示 し た 後 、 セ ル 
「B1」 に [1」 と いう 値 を 設定 する マク ロ で す 。 


エク セル 上 で 実行 する と 、「test1] と いう メッ セー ジ ・ ボ ックス が 出 て き て 、 
[「B2」 セル に 「1」 と いう 値 が 入り まし た 。 


Microsoft Excal em 


「Calc」 上 で この マク ロ を 正常 に 実行 で きれ ば 、 メ ッ セ ー ジ や セル へ の 値 設定 
と いう VBA に よる 基本 的 な 出力 を 、「Calc] で も 同様 に で きる こと を 意味 し ます 。 


Excel 上 で の 動作 を 確認 し た ら 、 適 当 な 名 前 で 保存 し て 、「Calc」 を 起動 し て 
くだ さい 。 


コ 
[Calc」 を 起動 し た ら 、 先 ほど の Excel フ ァイル を 読み 込む 前 に 、「VBA マ ク 
ロ | を 実行 で きる よう に 設定 を 変更 し ます 。 


[4-5] Excel の 「VBA マ クロ 」 を 使う 


ツー ル ・ メ ニュ ー か ら 「 オ プシ ョ ン 」 設 定 画 面 を 立ち 上 げ 、「 読 み 込み と 保存 」 
に ある 「VBA 属 性 ] を クリ ッ ク し て くだ さい 。 


Microsoft Word 972000XP ニ ーーーーーーーーーーーー 
全般 図 Basic コー ド の 読み 込み (で ) 
メモ リ 1 
表示 馬 オリ ジ ナ ル Basic コー ド の 保存 (O) 
印刷 
パス Microsoft Exoel 97/2000/XP 
色 軌 Basic コー ド の 読み 込み ぬ ) 
フォ ント 上 ニー-te79 い 
セキ ュ リ ティ | 行 可能 コー ド (| 
時 配色 の に 
旨 0 図 オリ ジ ナル Basic コー ド の 存 (Y) 
上 Java 
オン ライ ン 更 新 Microsoft PowerPoint 97720007XP 
上 品質 向上 プロ グラ ム : . 関 Basic コー ド の 読み 込み (5) 
| 四 読み 込み と 保存 6 
| | 全般 図 オリ ジ ナル Baslc コー ド の 陣 存 (E) 
上 Microsoft O 人 fce 
1 HTML 互 損 性 日 
| 遇 言語 設定 
軸 OpenOffice.org Calc 
| | @ Openoffce.org Base 
財田 グラ フ Ra 5 ー 
語 遇 申 イ ンタ ーネット 。 0 和合 
剛昌 oOK 
「 オ プシ ョ ン 」 設 定 画面 


ここ に 、VBA 読 み 込み に 関す る いく つか の オプ ショ ン が ある の で 、 こ れ ら を す 
べ て 選択 状態 に し ます 。 
(初期 状態 で は 、「 実 行 可 能 コ ー ド 」 の チェ ッ ク が 外さ れ て いて 、VBA マ クロ が 実 
行 で き な い よう で す )。 


ヒコ 
設定 を 終え た ら 、「 開 く ] メ ニュ ー か ら 先 ほど の Exce1l フ ァイル を 開い て み ま 
員 沙 。 


マク ロ に 関す る 警告 が 出 て くる の で 、 マ クロ を [有効 ] に し ます 。 
続い て 、|「 ツール 」 内 の マク ロ ・ メ ニュ ー か ら 「 マ クロ を 実行 ] を 選ぶ と 、 マ クロ 
の 選択 画面 に な る の で 、 読 み 込ん だ シー ト の [test1」 を 実行 し て みて くだ さい 。 
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実行 結果 


エク セル の と き と 同 じ く 、 メ ッ セ ー ジ ・ ボ ックス が 出 て き て 、「B1] セル に 値 
が 設定 され まし た 。 

も し 、 実 行 さ れ な い 場 合 は 、 最 初 に 設定 し た [オプ ショ ン 」 設 定 画面 を 呼び 出 
し 、「OpenOffice.org] 内 の セキ ュ リ ティ 欄 で [「 マ クロ セ ・ キ ュ リ ティ | を [中] 
な ど に 変更 し て み ま し ょ う 。 


た だ し 、 設 定 を 変更 する と 、「 悪 意 あ る マク ロ | を 含む シー ト を 開い た 場合 に 、 
何ら か の 間 題 が 生じ る 可能 性 が あり ます (「Calc」 上 で は 、「VBA マ クロ 」 か ら の 
ファ イル の 読み 書き も 可能 ) 。 

特に セキ ュ リ ティ が 重視 され る 環境 で は 、 マ クロ の 実行 を 許可 すべ きか 、 慎 


重 に 検討 し て くだ さい 。 
理 Op 紹 
ユー ザー デー タ | | セキ ュ リ ティ の オプ ショ ン お よび 周 和 6 
] < 選 
上 全般 1 セキ ュ リ ティ 開 連 の オプ ショ ン を 調 整 し 、 ド キュ メン トド の 非 表 示 情報 の 結 告 を 定 馳 し | 
メモ リ | ます = 間 
| 表示 
色 生 | | Web 援 結 の /( ス ワード 
和 | 同 Web 拉 重 用 の パス ワー ド を 栓 挟 的 に 避 存 (C) 
上 
フォ ント 1 
中 | 
配色 の 詞 | 
1 アク セ シ ピ リティ 1 
| Java ] 
| オン ライ ン 更 半 日 
| | 品質 向上 ログ ラム | 、 マク ロ セ キュ リティ 
寺 迷 | マク ロ の 実行 に 関す る セキ ュ リ ティ レベ ルル を 調 束 し 、 信頼 で きる マク ロ デ ベ ロッ バ を 
| 弾 OpenOffioe.org Calc | 2 
| 軸 OpenOffice.org Base ] | ご の ドキ ュ ユメ ント の ファ イル 共有 オプ ショ ン 
| 員 - グ ラフ | 門 ドキ ュ メ ント を 読み 取り 専用 で 開く (⑪ 
思 イン ター ネッ ト 1 謗 に 
| 還 変更 を 記録 0) 
| 


| OK ] に 。。。 キャ ン セ ル [ スッ ルプ (BH) | | 
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マク ロ セ キュ リティ 


| キュ リティ レバ ル 人 = ス | [ 
最高 ] | 


人 め 信頼 され た ファ イル 位置 か ら の マク ロ の み 実 行 が 許可 され ます 。 そ の ほか すべ て の マク ロ は 、 墨 名 | 
の 有無 に か か わら ず 、 無効 に な り ま す (V)。 | | 

| 

} 

| 


・ 調 


信頼 され た ソー ス か ら の 塞 名 付き マク ロ の み 実 行 が 許可 され ます 。 圧 名 の な い マ クロ は 無効 で す (D 


低 ( 推 美 し ませ ん ) | 
| 確認 な し で すべ て の マク ロ が 実行 され ます 。 開 か れる すべ て の ドキ ュ メ ント が 安全 で ある ご と が 保 | 
| 証 され て いる 場合 に の み 、 ご の 設定 を 使用 し て くだ さい (L)。 唱 


「 マ クロ セ ・ キ ュ リ ティ 」 の 設定 画 
還 CSV フ ァイル を 読み 込ん で みる 
次 に 、「CSV フ ァイル 」 の 読み 込み を 試し て み ま す 。 


Excel の シー ト に 以下 の よう な マク ロ を 追加 し ます (CSV の ファ イル ・ 
は 、 環 境 に 合わ せ て 書き 換え て くだ さい )。 


CSV フ ァイル 「d:\test.csv」 を 読み 込み 、 
その 内 容 を 左上 端 か ら セ ル に 設定 する 。 


適当 な CSV フ ァイル を 作っ た ら 、 実 際 に マク ロ を 実行 し て 、 セ ル に 値 が 設定 
され る こと を 確か め て くだ さい 。 
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NM 
1 2 5 
上 C 
IN っ 
実行 結果 


マク ロ の 構文 や 関数 の 扱い 方 は 、「Calc」 の 「OpenOffice.org BASIC マ クロ ] 
と よく 似 て いる の で 、「VBAl を 使っ た こと が な い 人 で も 、 一 読 す れ ば 、 な ん と な 
く 意 味 が 読み 取れ る の で は な いで し ょ うか 。 


Sub tes2( ) 


Dim 
Dim 
Dim 
Dim 
Dim 


fh 


Fh As Tnteger 
CSVL1nG AS S 上 と 1ng 
CSVTtemS AS Varian ヒ 上 
rOwIrmdex AS エ nteger 


co] Tndex AS Tnteger 


FreeFi1e 


Open "dQd:\Ees ヒ .CSVY" Oor Tnpu も E As #fh 


rowTndex = 0 


Do Whi1e Not EOF(Eh) 


Line Tnput #fh, csvLiine 


、 CSevlLeus Splik(oevline 。 |!) 
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ー Fo ェ co1Tndex = 0 Po UBound (CSY エ Eems ) 


1 Ce11s (rowTndex + 1。 col1Tndex + 1) .Value = csyTtems_ 
(colrndex) 「 
1 Ne 


FowTndex = rowrndex + 1 


roop 
C1ose #Eh 
End Sub 
適当 な 名 前 で 保存 し た ら 、|Calc] で 開い て マク ロ を 実行 し て み ま し ょ う 。 


Excel の と き と 同 様 に 、 問 題 な く 処理 され た と 思い ます 。「 配 列 ] や [Variant 
変数 ] 周 り の 処理 も 大 丈夫 の よう で す 。 


CSV フ ァイル も Excel と 同じ よう に 処理 され る 


以上 の こと か ら 、「Calc」 で は 、 
・VBA と 同様 に に ファ イル を 開け る 。 
・VBA と 同様 に 、CSV フ ァイル の 各行 各 項 目 を (配列 要素 と し て ) 取 り 出 せる 。 
・VBA と 同様 に 、 各 セル に 値 を 設定 で きる 。 
・VBA と 同様 に 、 任 意 の 文字 列 を メッ セー ジ ・ ダ イア ログ に 表示 で きる 。 
こと が 分 か り ま し た 。 
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つま り 、「Calc」 で も VBA を 含む Excel シ ー ト を 使っ て 、「 デ ー タ ・ フ ァイル を 
セル に 読み 込ん で その 内 容 に 対し 、OpenOffce.org BASIC で 記述 し た 処理 を 
実行 で きる ] わ け で す 。 


これ な ら 、 一 般 的 な 統計 処理 を 行なう Excel シ ー ト の 基本 機能 に つい て は 、 
大 き な 問 題 な く 使 える ([Excel」 と 「Calc」 の 両方 で 使え る [VBA マ クロ ]」 を 含む 
表 計 算 シ ー ト が 作れ る ) 可能 性 が 高い 、 と 言え る の で は な いで し ょ うか 。 
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「O0o」 に は 、「Base] と いう デー タベース ・ ア プリ ケー ショ ン が 含ま れ て い 
まお 。 

「Base」 は 、「 デ ー タ ベー ス ]」 (otd フ ァイル ) の 中 に 複数 の 「 テ ー ブ ル ] ( 表 ) を 格 
納 す る デー タベース ・ シ ステ ム で 、「 デ ー タ ベー ス ] の 実体 は デー タベース ご と 
に 作ら れる 「otd フ ァイル | その も の で す 。 

ここ で は 、 こ の 「Basel の デー タベース を マク ロ か ら 扱 っ て みた いと 思い ます 。 


「otd フ ァイル 」| に 対し て は 、「O0o] の シス テム を 通し て 「SQL| (デー タベース 
を 扱う た め の プ ログ ラミ ング 言語 ) で デー タ の 処理 を 行なう こと が で きま す 。 

「OpenOffice.org Basic マ クロ |] か ら は 、|「O00o]」 が も っ て いる デー タベース 
へ の 接続 を 取得 し 、「SQL] で アク セス で きる の で 、 テ スト 用 に 作っ た デー タ ベ 
ー ス の デー タ を [SQL] で 読み 込ん で み ま し ょ う 。 


画 TBase」 で テス ト 用 デー タベース を 作る 


まず 、「Base」 を 起動 し 、 テ スト 用 の デー タベース を 作り ます 。 

「Base」 を 起動 する と 、 編 集 す る デー タベース の 選択 画面 に な る の で 、「 新 規 
デー タベース の 作成 ] で 、「addressBook」 な ど 、 適 当 な 名 前 の デー タベース を 
作っ て くだ さい 。 
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この 際 、[OpenOffice.org に デー タベース を 登録 し ます か 」 の 項目 が |「 はい] 
に な っ て いる の を 確認 し ます 。 


ヒコ 
デー タベース ・ フ ァイル を 保存 し 、「 デ ー タ ベー ス の 編集 ] 画 面 に な っ た ら 、 
テス ト 用 テー ブル 「ADDRESSBOOK」 を 作り まし ょ う 。 


[ADDRESSBOOK| の 各 デ ー タ に は 、 


no( 番 号 ) POPOCPCDCPCCCCCCCCOCLC い 整数 型 、 主 キー 
name( 名 前 ) POCOODOCLLCPL 文字 列 型 
mail( メ ー ル アド レス )……… 文字 列 型 


の 3 つの 項目 を 格納 する よう に し ます 。 


まず 、「 ツ ー ル | メニ ュー の 「SQL」 で 、「SQL ス テー トメ ント の 実行 ] ダ イア ロ 
グ を 出し て くだ さい 。 

「 実 行 コマ ンド 」 欄 に 、 以 下 の よ うな テー ブル を 作る 「SQL」 を 入力 し 、「 実 行 」 
する と 、 テ ー ブ ル が 作ら れ ま す 。 


CREAT 事 TABTE ADDRESSBOOK (no INT GENERATED BY DEFAULT AS 
TDENTTTY (STmART WTTH 1) NOT NULL PRTMARY KEY, name VARCHAR 
(32) NOT NULL, mai1 VARCHAR (64) ) 
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SQL ステ ー ト メン ド の 本 


上 SOL コマ ンド ーーーー 
夫 行 コマ ンド (2 
て RI 


量 の ココ メジ ド 9 


ステ ー タ スズ 叶 
1: コマ ンド は 正常 に 実行 され まし た 。 

| お 人 FNTSRTHONC キ zaiSSUHAMESEt を SSYiS2kK 

| 回 本 ec4C リ 間 じ る (D) 

「SQL ス テー トメ ント の 実行 ] で テー ブル を 作成 


「SQL」 を 実行 し た ら 、 ダ イア ログ を 閉じ て 、「 表 示 ] メ ニュ ー か ら 「 テ ー ブ ル の 
更新 ] を 行ない まし ょ う 。 こ れ で 、「 テ ー ブ ル | 欄 に 今 作っ た [ADDRESSBOOK」 
テー ブル の アイ コン が 見 える 状態 に な っ た は ず で す 。 


多 addressBook.odb - Opanoffce. or Base 人 刈 
| ファ イル (B) 細 集 (E) 0 AO マー ル ) 当代 209 ヘル プ (H) 


HU RTR 


5 人 オ 半 


較 デザ イン 表示 で テー ブル を 作成 (G).… | 悦 明 
区 ウィ ザー ド を 使用 し て テー ブル を 作成 ( 
基 ビュ ー を 作成 (KO… ] 


フォ ー ム (G) 


レポ ー ト (⑥) 


gs 


「ADDRESSBOOK」 テ ー ブ ル が 追加 され た 
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アイ コン を クリ ッ ク し て 、 何 件 か 適当 に デー タ を 入力 し て くだ さい 。 


譲 ADDRESSBOOK - addressBook - OpenOffce.orq Table Data Visw し 呈 | 国 


98 | HU 


日 本 太朗 nippon@example.jp 
山田 次 分 yamada@example-jP 
| 田 中 花子 tanaka@example.jp 


「ADDRESSBDOK」 テ ー ブ ル に デー タ を 登録 


田 デ ー タ ベー ス の 登録 名 を 確認 する 


何 件 か デー タ を 追加 し 、 保 存 し た ら 、 今 作っ て いる デー タベース が 実際 に 
「O00o]」 の シス テム 上 で デー タベース と し て 認識 され て いる か 、 確 認 し まし ょ う 。 


「 ツー ル 」| 内 の [「 オ プション] メニ ュー で 、「O0o」 の 「 設 定 ] 画 面 を 呼び 出し て 
くだ さい 。 


次 に 、 ツ リー・ ビ ュー の 「OpenO 代 ce.org Base」 を クリ ッ ク す る と | 接続 | デ 
ー タ ベー ス 」 と いう 項目 が 出 て くる の で 、「 デ ー タ ベー ス ] を 選び ます 。 

する と 、 現 在 登録 され て いる デー タベース が 「 登 録 さ れ た デー タベース 」 と し 
て 一 覧 表示 され る の で 、 そ こ に 先ほど 作っ た デー タベース が ある こと を 確認 し 
まま あゆ 。 

この 「 登 録 名 ] が 、 マ クロ か ら デ ー タ ベー ス を 使う と き に 必要 に な り ま す 。 
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オプ ショ ン - Openoft 


登録 され た デー タベース ーーーーーーーーーーーーー 
ンジ ピン 2 


| Bibliography て :\Users\NRTTKRYADPData\Roarnind\OpenOffice.or\3\user\dat 


デー タベース の 登録 名 を 確認 


「 登 録 名 ] を 確認 し た ら 、 一 度 保存 し 、「Base」 を 終了 し て くだ さい 。 


田 マク ロ か ら デ ー タ ベー ス に アク セス する 


改め て [Base」 を 再起 動 し た ら 、 い つも の よう に 「 ツ ー ル 」 メ ニュ ー の | マクロ] 
か ら 、 マ クロ の 編集 画面 に 入っ て くだ さい 。 
さっ そく 、 先 ほど 作っ た デー タ に マク ロ か ら ア クセ ス し て み ま し ょ う 。 


マク ロ か ら デ ー タ ベー ス を 利用 する 処理 は 、 

[1]「com.sun.star.sdb.DatabaseContext」 サ ービス で | 接続 名 」 を 指定 し て 
「 デ ー タ ・ ソ ー ス ]」 を 取得 。 

[2]1|「 デー タ ・ ソ ー ス 」 か ら 「Connection」 を 取得 。 

[3][ Connection」 か ら 「Statement」 を 作る 。 

[4]「Statement」 の 「executeQuery( )」 で 「SQL」 を 実行 し 、 抽 出 結果 の 
「ResultSet」 を 取得 。 

[5]「 ResultSet」 か ら 「 デ ー タ 」 を 取得 。 

と いう 流れ で 行ない ます 。 
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た と えば 、 接 続 名 [addressBookl」 に ある テー ブル 「ADDRESSBOOK」 の デ 
ー タ を すべ て 含む 「ResultSet」 を 得 て 、 そ の 最初 の デー タ の 2 番目 の 項目 
([ADDRESSBOOK| テ ー ブ ル の 「name」) を 表示 する な ら 、 

_Sub Main 
Dim ConEexE As ObJject 
Dim src AS Object 
Dim cnn As Objeot 
Dim Stm As Object 
Dim rs As Objeot 
context = createUnoService( "com.sun.Star.sQdb .DatabaseConEext『 ) 
SrC = Context .getByName ("addressBook" ) 
GMT モ STGEGGECOmnnecGEuontAN/ 0) 
Stm = cmn.createStatement ( ) 
8 も = Stm.execuEeOuery ( " SELECT * FROM ADDRESSBOOK" ) 
エ F Not TsNu11 (rsE) Then 
呈 こ 9 ニタ 。 本 
MsgBox rs .getString (2 ) 
End エモ 


rst_c1ose () 


cnn .close( ) 
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還 


mdispose () 


の よう に し ます 。 


「executeQuery( )」 で 得 ら れる 「ResultSet」 は 、[SQL」 で 抽出 され た デー タ 
を 保持 する 「 コ レク ショ ン ]」 で 、 複 数 の デー タ を 格納 する こと が で きま す 。 


sofice 


「name」 項 目 が 表示 され る 


デー タ に アク セス する に は 、 
6Xt Ccresccozocs 次 の デー タ に 移動 
Previous …… 前 の デー タ に 移動 
と いっ た メソ ッ ド で 、「 現 在 位置 ] を 変え な が ら 参 照 し て いき ます 。 


た だ し 、 最 初 の 状態 で は 、「ResultSet」 の 現在 位置 が 「 最 初 の デー タ の 前 ( 無 
効 な 位置 ) に な っ て いる 点 に 注意 が 必要 で す 。 

「ResultSet」 に 含ま れる 最初 の デー タ を 参照 する に は 、「next( )」 で 現在 位置 
を 1 つ 進 め る 必要 が あり ます 。 


現在 位置 を 有効 な デー タ の ある 位置 に 進め た ら 、「getString( )」 な ど 、 行 に 
含ま れる デー タ を 取得 する メソ ッ ド で デー タ を 取得 で きま す 。 

「getString( )」 は 、 引 数 に デー タ の 位置 を 「1] か ら は じ ま る 数 字 で 指定 する 
と 、 そ の 位置 に ある デー タ を 文字 列 と し て 返す 関数 で す 。 
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「next()」 は 、 実 際 に 移動 で きた ら 「TURE]、 で き な け れ ば 「FALSE」 を 返す の 
で 、「next( )] が 真 で ある 間 、「next( )] で 次 の デー タ を 処理 する ルー プ を 書け 
ば 、「ResultSetl の 全 デ ー タ を 処理 で きま す 。 

た と えば 、「ADDRESSBOOK」 の 「 デ ー タ 」 を 、 す べ て 「Calc」 の シー ト に 書き 
出す に は 、 以 下 の よ うに し ます 。 

「Calc」 を 起動 し 、 以 下 の マ クロ を 実行 し て みて くだ さい 。 

Sub Main 
Dim contex ヒ Ag ObJect 
Dim src As ObJject 
Dim cnn As Ob]ject 
Dim SEm AS ObJjeot 
Dim rs 上 As Object 
context = createUnoService ("com.Ssun.Star.sdb.DatabaseContext") 
SFrC = Context .getByName ( "adQdressBook" ) 
Grim = SrO.qetConrmection(""/ "") 
Stm ニニ Cnn.CreaEeStaemen ( ) 
B ニ SEm.GxeCu も eoOuery ("SELECT よ FROM ADDRESSBOOK" ) 


rowIndex = 1 


ェ エ E Not TsNu]1 (rst) mhen 


WhiTe エ SE .ex ヒ 


Fo | | Eo 3 
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うべ 


] ThisComponent . Sheets (0) .getCe11ByPosition(1, 
rowTndlex ) . String = rsE.geEString (1 ) 
| _NexxE 


Owndex = rowEndex + ユ 


Wend 


End TE 
rst .CloSe( ) 


Cm,CTOS@( ) 


cnn .DispoSe( ) 


End Sub 
較 A ap | 陸 | D 間 3 | 
し ーー + ー# 
間 1 日 座 夫 郎 
3 2 山田 次 朗 
人 は 田中 花子 
5 


デー タベース の 内 容 が Calc の シー ト に 反映 され る 


「CSV フ ァイル 」 を 「Calc」 に 読み 込ま 
せる 際 に 、 目 的 の 項目 の み を 読み 込む 、 一 
定 の 楽 件 を 満た す も の を 抽出 し て 表示 す 
る 、 と いっ た 整理 方 法 を マク ロ で 実現 し 
て み ま し よう 。 
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|5-1 ICSV フ ァイル を 特定 の 条件 で 処理 する 


銀行 や 証券 会 社 の オン ライ ン ・ サ ービス で は 、 取 引 履歴 を TCSV フ ァイル 」 で 
ダウ ン ロ ー ド で きる 場合 が あり ます 。 た だ 、「CSV フ ァイル 」 と いっ て も 形式 は 
まち まち で す 。 

不要 な デー タ も あっ た り し て 、「CSV」 の まま [Calc」 に 読み 込ま せ て 使う と 、 
ちょ っ と 扱い に くい 場合 も あり ます 。 ま た 、 特 定 の 場所 に 保存 し て ある 「CSV フ 
ァイル | を まとめ て 処理 し た い 、 と いう こと も ある か も し れ ま せん 。 


ここ で は 、 そ うし た 「CSV フ ァイル 」 の 「 整 形 ] や [自動 処理 ] を マク ロ で 行なう 


た め に 、「 項 目 の 抽出 」 や [日 付 に よる フィ ル タ 」 な ど 、 基 本 的 な 流れ を 試し て み 
まじ まう 。 


還 項 目 を 抽出 する 


今回 扱う 「CSV」 は 、 以 下 の 形式 の も の と し ます 。 


年 , 月 , 日 , 種 別 (1- 入 金 /2- 出 金 ), 入 金額, 出 金額 


この 形式 の TCSV フ ァイル 」 を 読み 込ん で 、1 件 1 行 で [年 月 日 、 入 金額 、 出 金 
額 」 の 順に セル に 出力 する こと に し まし ょ う 。 
出力 先 は 、 マ クロ で 自動 作成 し た 「 新 規 シ ー ト ] と し ます 。 


まず 、 出 力 す る シー ト を 作り ます 。 
シー ト の 名 前 は 「testSheet51] と し 、 す で に 同名 の シー ト が あれ ば 、 一 度 削 除 
し て か ら 新 規 作 成す る よう に し まし た 。 


_Dim doc As Object 
」 _ pim Sheets As ObJjec モ 


、 Dim sheetName As SEring 
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doc = ThisComponen セ 


SheetName = "testSheet51" 
Sheets = qooc.Sheets 


TF sheeEs.hasByName ( sheetName ) "Then 
Sheets .removeByName (SheetName ) 


End TE 


SheeEs . inSerENewByName ( sheetName, 0) 


※ 
続い て 、「CSV フ ァイル 」 を 読み 込み 、1 行 ずつ セル に 転記 し て み ま し ょ う 。 
転記 する の は 、「 年 月 日 ]「 入 金 ]「 出 金 ] と し 、「 年 月 日 ] は 「 年 / 月 / 日 ] と 、 ひ と 
つ に まとめ ます 。 


まず 、 以 下 の よ うな 「CSV フ ァイル ] を 作っ て 、 適 当 な 場所 に 保存 し て くだ 


さい 。 


2009,7,1,1.10000,0 
2009,7,2,2,0,10000 
2009,7,3,2,0,20000 
2009,7,4,1.0,30000 


次 に 、 以 下 の マ クロ を 作っ て 、「csvPath」 に [CSV フ ァイル | の 場所 を 指定 し 
ES 


Sub Main 


_Dim doc As ObJeo 
Dim sheeEts As ObJeo ヒ 上 


Dim sheetName As String 


Dim FineNo As Tnteger 
Dim csvLime Ag String 
Dim csvTtemS ( ) Ag St 上 了 ing 
Dim csvPath As String 
Dim rowTndex AS Long 


D1m date Ag St と ng 


CSVPath = "FL1e:///@: /test .CsV" 


Goo = ThisComponen セ も 


・ シー ト 名 設定 
sheetName = "testSheet51" 


Sheet8 = Qoc.Shees 


: 既に 同名 の シー ト が あれ け は 削 除 


エ f sheets .hasByName ( sheetName ) 


Sheetg . エ emoVeByName (SheetName ) 


End TE 


ウト を 伸 加 


Sheet8 . imSertNewByName ( SheetName , 


FileNo = FreefFi1e 


! CSVY フ ァイル を 開く 


Opern。 CSVPath Fo エ nPu も モ AS #fFi]eNo 


・ 書き 込む セル の 行 位置 を 設定 
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つ 


rowPos = 0 


CSV 各行 を 処理 
Whi1e not eoE(fi]eNo) 


・ 一行 読み 込み 


エモ me Tnpu #fFileNo, csviinme 


・ 項 目 を 分 離 


CSVTtems = Sp1it(csvLine, ",") 


・ 日 付 の 文字 列 を 作成 


date = csvLItems(0) & "/!" & csyTtems(1) & "/! & csvItems (2 ) 
SheeEs (0 ) .getCe11ByPos1ion (0 , rowPos ) . St と tng = Qdate 


SheeEs (0 ) .getCe11ByPosition (1 , rowEos ) .String = CSvTtemas (4 ) 
Sheets (0 ) .getCe11ByPosition (2, rowPos) .8tring = CSVITtems (5) 


' 行 位置 を 更新 


FOWPOS = rowPoS8 + 1 
WenQd 
C1ose #Fi]leNo 


End Su ち 


マク ロ で は 、 ま ず 、「CSV フ ァイル 」| を 開い て 、1 行 ずつ 読み 出す ルー プ に 入 り 
ま ⑳。 


ルー プ 内 で は 、 

1 番目 の 項目 /2 番 目 の 項目 /3 番 目 の 項目 
と いう 形 で 作っ た 「 日 付 文字 列 ] を 、 各 行 の 左端 セル (イン デック ス 「0」) に 入れ 
時 
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続い て 、「 入金](CSV の 5 番目 の 項目 ) を 、 左 か ら 2 番 目 ( イ ン デ ックス 「1]) の 
セル に 、[「 出 金 ] を 左 か ら 3 番 目 の セ ル ( イ ン デ ックス [2」]) の セル に 入れ 、 現 在 の 
行 位置 を 更新 し ます 。 

これ を 、「CSV フ ァイル ]」 の 最後 まで 繰り 返し て み ま し た 。 


玉 
マク ロ を 実行 する と 、「testSheet51| と いう 新規 シー ト が 作ら れ て いる の で 、 
その シー ト を 開い て 実行 結果 を 確認 し て くだ さい 。 


回 衣 宮 =「2oo が 
B 


「CSV フ ァイル 」 を 実行 結果 


画 特 定 の 条件 上 で 、 項 目 を 抽出 する 


次 に 、「 一 定期 間 の デー タ だ け を 表示 する 」] よ うに し て み ま し ょ う 。 
「 日 付 型 の デー タ 形 式 に し て 大 小 を 比較 ] と いう 手 も あ り ま す な が 、 今 回 は 簡単 
に 、「4 桁 の 年 、2 桁 の 月 と 日 、 合 計 8 桁 の 数 値 ] で 比較 する こと に し ます 。 


つま り 、 年 月 日 を 、 
年 x10000+ 月 x100+ 日 
の 数 値 と し て 扱う わけ で す 。 


あら か じ め 、 変 数 [startDate」「endDate」 に [開始 日 ] と [終了 日 ] を 入れ て お 
いて 、CSV の 「 年 月 日 ] が その 間 に あ れ ば 、 デ ー タ を 表示 する よう に し ます 。 


[5- 1] CSV フ ァイル を 特定 の 条件 で 処理 する 


CSV の | 年 月 日 ] を 「 数 値 ] と し て 計算 する 際 は 、「Long 型 ] 数 値 に 変換 する 


「CLng( )」 関 数 を 使う よう に し まし た 。 
Sub Main 


D1m doC As ObJjeo も 
Dim sheetS Ag ObJect 


Dim sheeEName As Sring 


D3m FineNo Ag Tnteger 
Dim CSvLi1n ら Ag St と 1ng 
Dim csvTEems() As String 
Dim csvPath As Strimg 
Dim rowTndex As Long 


D1m Qate As 8 モエ ng 
Dim StartDate As Long 
Dm endDate As Long 


Dim itemDate As Long 


C8VPath = "File:///e:/test .Csv" 
期間 設定 

8EartDate = 20090702 

endDate = 20090704 


doc = TBiSCompoonen ヒ 


! シー ト 名 設定 


SheeEName = "EestSheet51* 


SheeEtS = qoo .Sheets 
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_\ 


_! 既に 同名 の シー ト が あれ ば 削除 
TF SheeEs.hasByName (SheetName ) Then 
Shee8 . エ emoVeByName (SheetNamne ) 


End エ E 


) シー ト を 追加 


Ssheets . 1nsertNewByName (sheetName, 0 ) 
FileNo = Freefile 


! C8dY フ ァイル を 開く 
Open CSvPath Fo と TnPut As 半 fileNo 


, 書き 込む セル の 行 位置 を 設定 


rowPoSs = 0 


「 csv 各行 を 処理 
Whi1e not eoF (fileNo ) 


, 一 行 読み 込み 


me Tnpu モ #FileNo, CSVLine 


各 項 目 を 分 離 


CSVTEemS = Sp1iE(csvLlne, 『",『) 


・ 日 付 の 文字 列 を 作成 


date = csvTtems(0) & "/" & csvTtems(1) & "/" & csvTtems (2) 


・ 日 付 を 数 値 化 
ミ も emDaEe = CHLnq(csvFEems(0)) * 10000 + CLng (csvTtems 


(1)) 》) 100 J CIng(CasvTEems(2) ) 


[5-1] CSV フ ァイル を 特定 の 打 件 で 処理 する 


2 日 付 が 期間 内 な ら シー ト に 追 加 


1 TE 1EtemDate >= SEarEDate And 1EemDate < endpa 


sheeEs (0 ) . geECe]1ByPosition (0, rowPos) .Strind = date 


sheets (0) .getCe11ByPosition (1, rowPos) .8tring 


sheets (0) .getCe11ByPosition (2, rowPos) .String 


・ 行 位置 を 更新 


エ OwPOS = FOWPOS + ユエ 


End エモ 


Wend 


C1ose #FileNo 


豆 nd Sub 


csvTtems (4) 


Cavtensl3) 


マク ロ を 実行 し て みる と 、[startDate」 (20090702) と 「endDate」(20090704 


で 指定 し た 期間 の デー タ だ けが 表示 され た と 思い ます 。 


| 

| > |20097/3 
本 
上 Ll 4 


eee testsheet51 1 /Sh sheeta (Shee| | 
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コ 
以上 、「CSV フ ァイル ] を 読み 込ん で 、「 特 定 の 条件 で 抽出 し た デー タ 」 の 「 特 
定 の 項目 ] を セル に 書き 出す 処理 を 試し て み ま し た 。 
「CSV フ ァイル 」 の 形式 は 、 デ ー タ の 提供 者 に よっ て さま ざま な の で 、 マ クロ 
な ど で 一 度 分 か りや すい 形 に 整理 し て か ら 、 処 理 する 必要 が 出 て くる こと も あ 
る で し まう 。 


※ 
な お 、 今 回 は 省き まし た が 、 実 際 に [CSV フ ァイル 」 を 処理 する マク ロ を 作る 
際 に は 、「 フ ァイル 読み 込み の 失敗 ] や 「CSV デ ー タ の 異常 | な ど 、 エ ラー 対策 に 
も 注意 し て くだ さい 。 


付録 1】 
【 付 録 】 
【 付 録 3】 
付録 4】 


[OpenOffice.org』」 の イン スト ー ル 


「OpenOffice.org」 の 派生 ソフ ト 「Go-OO」 
困っ た と き の た め に 


「OpenOffice.org Basic」 予 約 語 一 覧 


付録 11 「OpenOffice.org」 の イン スト ー ル 


ここ で は 、「00o] の イン スト ー ル 方 法 を 説明 し ます 。 


ice.orgIl の イン スト ー ル 


【 手 順 】 


[1]「OpenOffice.org 日 本 語 プ ロジ ェクト | の Web サ イト に 行き 、 ト ッ プ ペー ジ 
の 「 ダ ウン ロー ド 」 を クリ ッ ク し て くだ さい 。 


OpenOfficeog 


日本 結 ホ ー ム 
Ke 

季 新 販 3.1.1) ダ ウン ロー 
電 央 2 4 3) 党 ウン ロー ド 
30 Vistsf ン メト ー ル 方 


OpenOffice.org 日 本 語 プ ロジ ェクト 
http://ja.0penoffice.0rg/ 
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[2] ダ ウン ロー ド の ペー ジ か ら 、 利 用 し て いる OS に 対応 し た イン スト ー ラ を 選 
び 、 ダウ ン ロ ー ド し ます 。 


Windows ueee 人 Windows dsae 1 
RE 時 - JRE な し 
、 Windewa 2000 SF2 以 隊 。XP.Viela、 2003 Widws mnmsP2 時 PVes2003 | 
_LInUXG2WB 。 。 Linuxiszyg 
昌 NNNMRE 計 4030MIENNIIIHOIEN RPM JRE な い 
_ LUX qanwe 1 
DEB, JRE な に 上 
LiInUX dmB) 1 LinUX qsewey 
2B6.64JRPMJRENN き = 664 DEBJREi 
Mac OS X PowerPC use Mac OS X Intel 69205) 
14(fige0 状 降 404(Tigan 以 陰 
. Solarls Sparc (91MB) _ Solaris x86 』anue 
Solams10 以 際 、JRE や つき Soiaris:40 以 降 , RE 付き 
P2P(BItTorrent) で ダウ ン ロ ー ド する 場合 は OpenQffice.org_P2E Downlgads( 素 語 ) を 参照 し て くだ さい 。 


対応 OS の イン ス トー ラ を 選ん で 、 ダ ウン ロー ド 


[31 イ ンス トー ラ の ダウ ン ロ ー ド が 終わ っ た ら 、 イ ンス トー ラ を ダブ ル ・ ク リッ 
ク し て イン スト ー ル の 準備 を 開始 し ます 。 


OpenOffice.org 3.1 を 人 ダウ ン ロ ー ド し て いた だ 
き 、 あり が と う ご ざ いま す 。 


イン スト ー ル の 準備 作業 と し て 、 イッ ストール ファ イル を 証 束 し 、 ハー 上 
ド デ ィ スク に コピ ー す る 必要 が あり ます 。 これが 終 わ ち と 、 | 
OpenOfficeprg の イ - ンス トー ル が 自動 的 に 開始 し ます 。 


「 次 へ 」 を クリ ッ ク し 、 続行 し て くだ さい 。 


次 へ 02 。」 し キャ 2E ル 
00 


「 次 へ ] を クリ ッ ク 


[41 フ ァイル の 解凍 先 フ ォ ル ダ を 指定 する 画面 が 表示 され ます が 、 も し 解凍 先 フ 
ォ ル ダ を 変更 する 場合 は 、[ 参 照 ] を クリ ッ ク し て 、 フ ォ ル ダ を 指定 し て くだ さい 。 


フォ ル 受 才 選 択 
評 一 し た ファ イル 老 保 存する フォ ル 人 を 層 択 し て くだ さい ゃ 。 


OpenOfficenrg 31 の イン スト ー ル ファ イル | は 、 展開 され 、 以下 の フォ ル 2 に 保存 され ます 。 ほ か の コ ォ ル 
| 2 全 に OpenOfficenrg を 人 守 す 場合 は 、「 全 錠 」 だ ウリ ッ ク し て コ ォ ル ダ 才 選択 し て くだ さい い 。 


出力 先 コ ォ ル ダダ 


| 必要 な 空き 容量 : 1558MB 
| 使用 で きる 容量 784GB 


M < 要 S⑧) コー 王 Ko ] に 2gk」 


特に 変更 の 必要 が な けれ ば 、 そ の まま 「 展 開 」 を クリ ッ ク 


[51 イ ンス トー ル ・ ウ ィ ザ ー ド が 開始 する の で 、 指 示 に 従っ て 作業 を 進め ます 。 


| OpenOffice.org 3.1 の イン スト 一 ル ウィ ザー KAE 
] うと こそ 


イン スト ー ル ウィ ザー ド で は 、 OpenOffice.org 3.1 の 変更 、 俺 復 、 
また は 削除 を 行う に と が で きま す 。 続行 する に は 「 次 人 」 を 2 のり ゅ し 


だ さい 


イン スト ー ル ・ ウ ィ ザ ー ド を 開始 する 
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[6]1 イ ンス トー ル を 進め て いく と 、|「 ユー ザー 情報 」 を 登録 する 画面 が 表示 され 
ます 。 

ここ で は 、「 ユ ー ザ ー 名 」 と 「 所 属 ] を 入力 し ます が 、「 所 属 ] は 未 入力 で も か ま 
いま せん 。 


| ユー ザ 情 報 oz | 
邊 am E 
| 情報 を 入力 L て くだ さい 。 OpenOfficeoq| 
| ユー ザ 名 fU): 
| hasLl 

所 届 (Q ぶ 

義和 

こ D ア プリ ケー ジョ ン を 反 ① ユ ー ザ に 対し て イン スト ー ル し ます : 

借 こ 0 コンピ ュー を 便 用 する すべ て の ユー ザ (A) 

| む ) master 0 のみ (M) 
| Rh | 
| し < 諾 5 し 光 NO = yy 


[ユー ザー 情報 」 を 任意 で 登録 する 


付 


[Z] 続 いて 表示 され る 「 セット アッ プ の 種類 ] 画 面 で は 、「 すべて] に チェ ッ ク を 


入れ て 、「 次 へ ] を クリ ッ ク し ます 。 


この と き 、「 カ スタ ム 」 に チェ ッ ク を 入れ る と 、 イ ンス トー ル す る プロ グラ ム や 


イン スト ー ル 先 を 指定 で きま す 。 


の 種 
用 人 に 最適 な セッ ト ア ッ プ の 種類 を 選ん で くだ さい 。 


セッ ト アッ プ の 種類 お 選択 し て くだ さい 。 


人 き すべ て (C) 


) カス な (5) 


8 すべ て の ブロ グラ ム 概 能 を イン スト ー ル し ます 。 (最大 の ディ スケ 容 量 を 
居 必要 と し ます ) 


ん 238 フロ グラ ム 村 ね お サイ ンス トー ル 先 を 導く 
区 詳 UC.A 計 の ある 方 に お 久 め し ます 。 


し < 齋 5@)。 に NO > に eb 


「 セ ッ ト ア ッ プ の 種類 」 を 選択 


[8]1| イン スト ー ル の 準備 完了 画面 が 表示 され ます 。 
| デスクトップ 上 に スタ ー ト リン ク を 作成 | に チェ ッ ク を 入れ る と 、 デ スク ト 
ッ プ に ショ ー ト カッ ト ・ ア イコ ン が 作ら れる の で 、 必 要 な 人 は チェ ッ ク を 入れ 


て お きま し ょ う 。 


ブロ グラ ムイ ンス ト ー ル 人 売 了 
イン スト ー ル を 開始 する 準備 が で きま し た 。 


イセ ストール な 開始 する 場合 は 「 イ ンス トー ル 」 を 、 


| キャンセ ル 」 を の ッ 2LC く だ さい 。 
| 関 デ スウ トッ ナ 上 に スタ ー ト リン ク を 作成 


ーー デー 
OpenOHficesg 


イン スト ー ル の 設定 を 見 直す 、 また は 安 更 する 場合 は 「 戻 る 」 を 、 ウィ ザー ド を 終了 する 場合 は 「 


S 胡 る @⑧ 


し イス トニ ル G) キャンセル 


上 


ショ ー ト カッ ト ・ ア イコ ン の 有無 を 選択 
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[9]「 イン スト ー ル |] を クリ ッ ク す る と 、 イ ンス トー ル が 開始 し ます 。 


in 
| OpenOffice.nrg 3.1 を イン スト ー ル し て いま す ーーー 
選択 し た プロ ガラ ム 機 能 を イソ スト ー ル し て いま す 。 OpenOfficesm| 


較 | イソ スト ー ル ウィ ザー ド は 、 OpenOffce.org 3.1 を イン スト ー ル し て いま す 。 し ば 
| 5 バ お 待ち くだ さい 。 
新 し (1 ファ イル を コピ ー し て (ます た 


| 
| 
ステ ー ぬ タス: 
| 
| 
[ 
上 
| 
| 
| 
| 


AN)> | ey 


イン ス トー ル が 開始 する 


田 JRE(Java Runtime 環 境 ) 


「O0o] の 機能 の 中 で 、「Writer」 や 「Calc」 の 一 部 の 機能 や 、「Base」 の 実行 を 
行なう に は 、「JRE」ava Runtime 環 境 ) が 必要 に な り ま す 。 

使っ て いる パソ コン に Java が イン スト ー ル され て いな い 場 合 は 、「JRE 付 き 」 
を ダウ ン ロ ー ド し て くだ さい 。 


使っ て いる パソ コン に [JRE] が イン スト ー ル され て いる か が 分 か ら な い 場 合 
は 、 次 の 手順 で 確認 する こと が で きま す 。 


付 録 


【 手 順 】 
[1]| コン トロ ー ル パネ ル 」 を 開き ます 。 


信 ン デ ナ ン ー ザ ー アカ ウン ト と 宗 球 の だめ の 
ェ ミッ クア テ 。 傘 の ユー ザー の 挟 証 者 に よる 測 


* ア ッ プ 
アカ ウン ト の 問 吉 また は 


回 リコ ント ロー リル 


トト 箇 細 


デス クト ッ プ の カス タマ イズ 


デス クト ッ プ の 音 共 の 守 
色 の カス タマ イズ 
ネッ トワ ー ク と イン ター ネッ ト 半 細 の 旬 仙 度 の 調 半 
は 9 ブー ク の 其 能 と タス ク の 表示 


ファ イル の 共 奏 の 朗 


陰 、 コン ピュ ー タ の 簡 崖 接 
役 定 の 混 電 の 下 
現 党 デ ィ ス プレ イ の 最 化 


プロ グラ ム 
プロ グラ ム の アン IS> ス トー ル 
スタ ー ト アッ プ プロ グラ ム の 誠 


その 他 の オプ ショ ン 


コン トロ ー ル バネ ル 画 面 を 開く 


[2]「 プロ グラ ム 」 一 「 プ ログ ラム と 機能 ] を 選択 し ます 。 


| 詳 コン トロ ー ル バネ ル 【 プログラム: HI SB 光 


iows の 検 衣 の 基 効 化 ま た は 枝 欧 年 
ラム の 表示 
ン の Windows で 使用 | プロ グラ ム の イン スト ー ル 方 法 


大 い プロ グラ ム を ご 。 


| Windows Defender 


ws SeShow 
iows SidaShow で 使用 する セカ ン 


ガジェット の アン イン スト ー ル 


[付録 11 [OpenOffice.orgl の イン スト ー ル 


[3] 一 覧 に 「Java(TM) SE Runtime Environment | が 表示 され て いる か を 確認 
し ま ず 。 


matm 56 Update 5 
RM 5E Runtirne Environment 5 


「Java(TM) SE Runtime Environment」 と いう 項目 が ある か 確認 


表示 され て いれ ば 、 す で に イン スト ー ル が すん で いる 状態 な の で 、「JRE な 
し 」 の イン スト ー ラ で イン スト ー ル し て も 、「00o] の 機能 を 余す と ころ な く 使 
えま す 。 


IOpen0ffice.orgl の 派生 ソフ ト 「Go-00] 


「O0o」 に は 、[StarSuite」 や 「Lotus Symphony」 な ど 、 数 々 の 派生 ソフ ト が 
あり ます 。 

その 中 で 、「O0o」 上 で 、「VBA マ クロ |] を サポ ー ト する た め に 開発 が 続け られ 
て いる の が 、「Go-O00」( ジ ー オ ー・ オ ー オ ー) と 呼ば れる ソフ ト で す 。 

対応 OS は 、「Windows」 [Mac」[Linux」 で す 。 


Go-00 の Web サ イト 
http://g0-0O.0rg/ 


また 、「VBA マ クロ 」 の サポ ー ト の ほか 、 高 速 な 起動 や TMS Works」 の サポ ー 
ト 、「WordPerfectl の グラ フィ ックス の イン ポー ト な ど 、 さ ま ざ ま な 機能 が 追 
加 さ れ て いま す 。 


D」 の イン スト ー ル と 日 本 語 化 


「Go-00」 は 、 プ ログ ラム 上 で は 「O0o」 と し て 扱わ れる の で 、 公 式 版 「00o」 
と の 共有 は で きま せん 。 

また 、 日 本 語 化 の た め の ラ ン ゲ ー ジ パッ ク を 別途 イン スト ー ル する 必要 が あ 
り ま す 。 


イン スト ー ル と 日 本 語 化 の 手順 は 以下 の と お り で す (Windows 版 の 場合 を 


例 に し て いま す )。 


【 手 順 】 


[付録 G] [OpenOffice.org」 の 派生 ソフ ト 「Go-00」 


[1]「Go-O00」 の Web サ イト か ら 、 ト ッ プ ペー ジ 上 部 に ある 「Download」 の 項目 


を クリ ッ ク し ます 。 


[2] 利 用 し て いる OS に 対応 し た イン スト ー ラ を ダウ ン ロ ー ド し ます 。 今 回 は 、 


Home Download Discover H 


Your Office Suite 
Better interoperability 


Gn-ca has built in Dcgr が ML impnrt filters ard it wi i 
urrstream DOo, tt has better Micrnsnft hinary fle su 
WirdParfct ganhics beautifully, Tf you are reliart nn 
acra fidlelity ton. Tf you xnBct ynur Spreadshegts tn 
diagairs In ynur dncumgrts, ynull warnt ロ n-On. 


「Download」 を クリ ッ ク 


Windows 版 の 「Go-00 US 版 ] を ダウ ン ロ ー ド し ます 。 


( 念 の た め 、 イ ンス トー ル 前 に 、 ウ イル スチ ェ ッ ク は 必ず 行なっ て お きま し ょ う )。 


Windows 


Download Go-00! 


Simnly downlnad th Cg-err し ピー filg, ar wnu 


LUniversal Linux 


「GoOo-en-US-version.exe」 を クリ ッ ク し て 、 イ ンス トー ラ を ダウ ン ロ ー ド 


付 録 


[31 ダ ウン ロー ド し た ファ イル を ダブ ル ・ ク リッ ク し て 、 イ ンス トー ル を 開始 し 
ます 。 イ ンス トー ル ・ ウ ィ ザ ー ド は 英語 で 表記 され ます が 、 手 順 は 公式 版 [O0o] 


Thank you for downloading 
OpenQffice.org 3.1. 


The installation 誠 Es must be umpacked and copied tn your | 
hard disk in preparation for the installation. AftEr that, he 
OpenOffice.org installation wl start automatcally. 


Click INexf to contnue. | 


イン スト ー ル 手順 は 公式 版 と 同じ 


[41 イ ンス トー ル が 終了 し た ら 、 日 本 語 化 の 作業 に 移り ます 。 
まず 、 ダ ウン ロー ド ・ ペ ー ジ か ら 「native lang-pack」 を クリ ッ ク し ます 。 


Download Go-QO! 


Windows 


Simply dawnlnad tha GaCp- モ ロー し Eー シ ersignex flla, ar your SEIvE ang-BCE 


Uniyersal Linux 


「native lang-pack」 を クリ ッ ク 


[付録 G1 「OpenOffice.org」 の 派生 ソフ ト 「Go-00」 


[51 ラ ン ゲ ー ジ パッ ク の ディ レク トリ ・ ペ ー ジ に 移動 する の で 、「GoOo-3.1.10- 
]angpack-ja.exe] を クリ ッ ク し 、 フ ァイル を ダウ ン ロ ー ド し ます 。 


遇 』 Eana-3.1. オー 


導 ビ ロ ロ ロー8 1 上 ロー1 at コピ Eー ュ モ = md5 


a は ロロ ロー ヨ 1 1 ロー1a ョ Ta ロビ セー ら ーT md5 
隔 


日 本 語 の ラン ゲー ジ パ ッ ク を ダウ ン ロ ー ド 


[6] ダ ウン ロー ド し た ファ イル を ダブ ル ・ ク リッ ク し て 、 画 面 の 指示 に 従っ て イ 
ンス トー ル し ます 。 


| OpenOffice.org 3.1 Language Pack (Japamese〕 
| の め イ ソス ト 一 上 ルウ イザ ー ド 入 よ うこ そ 


イン スト ー ル ウィ ザー ド は エッ ピュ ー 若 に OpenO 拓 ce.org 3.1 
Language Pack (Japanese) を イン スト ー ル し ます 。 続行 する に は 「 | 
> 次 へ 」 を jp て くだ さい 。 


この ビル ド は - ミ ュ ニ ティー の 協力 と と も に Sun Micrasystems, Inc に 
より 行わ れ て ます 。 謝辞 に 関し て は 以下 を ご 覧 くだ さい 
htHp:/ が ww.openo 抽 ce.orgvelcomeJcredits.htmil 


日 本 語 ラ ン ゲ ー ジ パッ ク を イン スト ー ル 


[ZI イン スト ー ル カ 


終了 し た ら 、「Go-00」 を 起動 し ます 。 


適当 な アプ リケーション を 起動 し て 、「Tool」 一 「Option] を クリ ッ ク し する 


オジ ショ ン シ 


設定 画面 が 表示 され る の で 、「Language Settings」 一 


ILanguage」 を 選択 し ます 。 


| | 語 OpenOffice.ore 

User Data 

General 

IMenmory 

View 

Prirt 

上 Paths 

1 Colors 

上 Fonts 

Secunity 

APPearance 

Accessibility 

| Java 

N Load7Save 

3 Language Settings 

E 問 
Writing Alds 

Searching In Japanese 
Asian Layout 

OpenOffice.org Writer 

OpenOffice.org WriteryWeb 

OpenOFfice.org Base 

Charts 

Internet 


[8]「Language o 


Language of : 1 
User interface 


Locale setting 


Decimal separator key 尽 Samme as locale settind ( 。 ) 


Default currency 


Ipefeu 


Default languages for documents 


Western 


人 sian 


回 For the current docupnent oniy 


Enhanced Ianguage suppo 計 


問 Enablsd for complex text layout (CTL) 


了 | 


「Language Settings」…「Language」 を 選択 


上 
に OK 


Cancel 


fl の 項目 に ある |User interface」「Locale Setting」 を 、 


[Japanese」 に 設定 し ます 。 
Landuage Of 一 に っ に さく ーー ュー こと 
User interface | Defa ト 2 
8 Default 
MONGSSMMIO English (USA) 
Decinal separator key Ss 
Default currency IDefault 回 


言語 の 基本 設定 を 「 日 本 語 」 に 設定 する 


[付録 G]] 「0penOffice.org」 の 派生 ソフ ト 「Go-00」 


[91 あ と は 、「Go-O00」 を 再起 動 す れ ば 、 日 本 語 化 は 終了 で す 。 


ZD 所 人 (本 示 O ツー ル LCDS8 ウ ァ ン ドウ (Wa 5 フキ ャ キャ キャ p キ レキ ら ⑮- 


よう こそ 
OpenOffice.org 


ドキ ュ メ ント の 新規 作成 


文書 ドキ ュ メ ント (A) | 表 計 斉 ドキ ュ メ ント (B) 


| プレゼンテーション) 還 形 拉 画 (D) 
ー タ ベー ス (G) 座 | wo 
ンプ レー ト (③3), 
1 設 譜 | ドキュメント を 隊 く (K)-… 
久生 人 @ 


日 本 語 化 が 完了 する 


付 銀 3 困っ た と き の た め に 


「O0o] で マク ロ を 組ん で いる と 、 構 文 や 具体 的 な 処理 な どの 疑問 が いろ い 
ろ 出 て くる と 思い ます 。 

その よう な と き は 、 以 下 の 資 料 で 疑問 を 解決 で き な い か 、 調 べ て みて くだ さ 
い 。 サ ー チ ・ エ ンジ ン の 検索 機能 と あわ せ て 調べ て みれ ば 、 た いて い の こ と に は 
「 ヒ ント 」 が あり 、 さ ら に は [回答] も 得 ら れる と 思い ます 。 


@「D0o」 の ヘル プ 

「 ヘルプ] メニ ュー に ある 「OpenOffice.org ヘ ルプ | に は 、「 マ クロ と プロ グラ 
ミン グ 」 の 項目 が あっ て 、「 基 本 的 な 構文 ] や [組み 込み の サブ ルーチン キ や 関数 ] 
が 紹介 され て いま す 。 

あま り 詳 し く 書い て ある わけ で は あり ませ ん が 、 概 要 を 掴む の に は 役に立つ 
Q じ まう 。 


具体 的 な 処理 を 浮か ん で きた 段階 で 、“ こ うし た 処理 は どう いっ た 構文 で 書 
け ば いい の だ ろう " と いっ た 疑問 が わい て きた と き は 、 ま ず は ヘル プ を 調べ て 
みて くだ さい 。 

また 、 関 数 は 正常 に 処理 を 行 な を な いと エラ ー の 値 を 返し ます が 、 そ の 値 ( エ 
ラー・ コ ー ド ) に つい て も 解説 され て いる の で 、 お か し な 動作 を する 関数 が あっ 
た ら 、 そ の 返り 値 を 調べ て みる と 解決 の ヒン ト に な る か も し れ ま せん 。 


久 OpenOffice.org BASIC Programming Guide 
http://wiki.services.openoffice.org/wiki/Documentation/BASIC_Guide 


[Basic マ クロ | の プロ グラ ミン グ ・ ガ イド で す 。 英 語 で す が 、 か な り 充 実 し た 
内 容 な の で 「Basic マ クロ |] に ある 程度 償 れ て きた ら 、 一 通り 目 を 通し て みて く 
だ さい 。 

「Calc」 に 関す る 事柄 は 、「Spreadsheet Documents| に まとめ られ て いま す 。 


[付録 3] 困っ た と き の た め に 


ーー 


Tis gude provdes an iniroduction to programming with OpenOfice org Basic. To get he most oul ofthis book。 you should be familarwih 


融 other programming languages. Exensve examples are provided to help you quickly develop your own OpenOfice.org Basic programe 


。 近 宝 し た ペー ジ DiS guide dwdes information about OpenOfce org admimishation into several chapters. The frstthree chapters itoduce you lo 
* お まかせ 表示 ORomWIBWP3 da em の 
* ベ ル ブ Te Languaee fpenOfWca ors Basic MD 
Bee 
Runlie Hrsry fe 


leredectien te ihe AFI 


IAe fo 
These chapters prwde an ovewew of OpenOfice.org Basic and should be read by anyone who intends to wrte OpenOWice org Basic 


ブック の ヘル ブ programs. The remaining chapters describe the indidual componenls ofthe OpenOWice_org APl in more delail and can be read seleclely as 
ウエル ボッ クス requred 
ェ リ ンク た Wormg wi Documenls 


関連 ユー ジ の 更新 杖 Tsxt Documenle 
考 peadshest Docummeris 


『 生 側 ペ ー ジ Drarngs and Preserialigns 


* 印 串 ョ ン Chsns (Diagrame) 
* こ の 量 へ の 男 屯 ツク 
・PDF 皮 
Foms 
他 の 言論 
・Ehdfsh About OpenOffice.org Basic 
Franeeis The OpenOWiceorg Basic programming language has been developed especialy for OpenOWWce.org and is firmniy Integrated in lhe OWce package. 
"Megyer As the name sug9ests、 OpenOfice.org Basic is a progrsmming !angusge fom the Bssic family Anyone who hs previously worked wilh other Basic lanuages 一 In paticular with Visual 
* leiano Basic or Visual Basic or Applications (VBA) fom Microsof 一 will quickly become accustomed Io OpenOfce.or Basic. Large sections ofthe basic constructs 0 OpanOffce.org Besic 
* 昌 本寺 are compalible wilh Visual Basic 
= 中 衣 The OpenOWice org Basic programming language can be dwded into four componenls 


The language of OpenOffce_org Basic- Defnes the elementary hnguislic consfructs.for example oryarable declarations。loops。 and nclions 
Th umime 
The 0penOfWce orq API (Apphcalion Programming Inlerface) Prmis access to OpenOWWcs.orq documents and Hows 1hese lo be crealed, saved modile 


ary: Prowdes slandard tncions which have no direct reference to OpenOf 


9.for example。 (unctions for editing umbers In9s。dale values and 人 le 
Land pnled 


OpenOffice.org BASIC Programming Guide 


@API リ ファ レン ス 


http://api.openoffice.0rg/docs/common/ref/com/sun/starmodule-ix.html 


マク ロ な ど で 使 える 、「O0o」 の API リ ファ レン ス で す 。 

英語 で す が 、 各 API の 引数 や 機能 の 桃 略 が まとめ られ て いる の で 、 本 格 的 に 
「O0o」 の 機能 を 活か し た マク ロ を 組む に は 必須 の 資料 で し ょ う 。 概 略 が 簡潔 
に まとめ られ 、 比 較 的 読み や すい と 思い ます 。 

また 、「O00o」 の API は 機能 ご と に 階層 化 き れ て いる の で 、 欲 し い 機能 が ある 
と き は 、 上 の 階層 か ら 関 連 の あり そう な 名 前 の リン ク を た どっ て みて くだ さい 。 


この ほか 、 サ ー チ ・ エ ンジ ン で ネッ ト 上 に 公開 され て いる サン プル を 探す の 
も 有効 で す 。 


関連 の な い 結 果 が 列挙 され て 絞り 込め な いと き は 、「O0o」 の 「Basic マ クロ ] 
で 使い そう な 単語 ([OpenOffice.org Basic マ クロ | の 各種 構文 や 
「ThisComponent] な ど ) を キー ワー ド に 含め て み ま し ょ う 。 
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@OpenOffice.org Basic 研究 室 


http://oooug.jp/compati/basic/pukiwiki.php?OpenOffice.org%20Basic 
962096B89%A696B59%6E696BC%BC 


「OpenO 代 ce.org Basic マ クロ | の サン プル を 公開 し て いる ペー ジ で す 。 
サン プル の 数 は そこ まで 多く は あり ませ ん が 、 プ ログ ラミ ング の 書き 方 に 迷っ 
た と き な ど に 、 目 的 の 用 途 と 似 た サン プル が あれ ば 、 参 考 に な る か も し れ ま せん 。 


[付録 31 困っ た と き の た め に 


検索 する マク ロ の サン プル 


ab nA・ 


4 


目的 か ら 検索 する OOoBasic コ ー ド の サン プル (作成 中 ) 


・ 基本 操作 
o ドキ ュ メ ント に アク セス する 方 法 一 の 
o cal の シー ト に アク セス する 方 法 一 〇 
o セル ドア クセ ス する 方 法 一 OpenG 
っ 記録 マク ロ に つい て の 問題 点 を 知り た い 一 記 
ドキ ュ メン トド に 十 定 する イベ ント を チェ ッ ク す る マク ロー イベ 
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最新 の 10 件 
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に メス 


・ 


・ 基本 の 基本 (ドキ ュ メ ント や セル へ の アク セス ) 
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